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ABSTRACT 

Tne maintenance of consistency in a distributed aatacase 
system environment presents a number of vexing proolems to 
tne datacase system designer. Tnis is more so tne case nen 
tne dataoase system contains replicated aata ana is also 
designed to provide a nigh degree of avaiiaoility under 
conditions of networx partitioning. 

This thesis investigates tne use of a proposed adaptive 
concurrency control algorithm as a possioie alternative 
solution for a number of the proolems facing tne aatacase 
system designer in the areas of concurrency control, 
partitioned net^orxs, and long-lived transactions. 
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X. INTRODUCTION 



A funaamental concept tor oataoase systems is tne notion 
of consistency. It a database is viewea as a set ot oata 
objects whlcn are related in some way, and it tnese 
relationships are viewed as assertions about tne oojects, 
then a database is considered consistent only it it 
satisfies all integrity assertions. Transactions wnich 
enter tne database system ana read or alter tne values in 
data oojects are said to move tne dataoase trom one 
consistent state to anotner. Thus, tne transactions, 
comprised of a set of atomic actions are consiaereo units of 
consistency. Since tne transaction's atomic actions cannot 
execute at precisely tne same instant m time, the dataoase 
can oecome temporarily inconsistent. Moreover, concurrent 
execution can cause the dataoase to oecome inconsistent. 
Therefore, to insure database consistency, a concurrency 
control mechanism is required. 

Tne main tasx for a concurrency control mecnanism is to 
insure tne ser ializablilty of transaction execution. it all 
of the transactions in a database system were to execute 
serially, that is one right after anotner, consistency would 
be insured as no transaction could intervene in anotner's 
execution cycle. If a set ot transactions execute 
concurrently ana tne result of that execution is equivalent 
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to the result Obtained from some seauential execution or t ne 



same set of transactions, tne execution is saia to ce 
serializaole Cl], Ser ializable execution of transactions is 
sufficient to insure consistency in a database system. Any 
execution sequence which cannot be serialized must not be 
allowed , 

Tne mechanism for concurrency control we investigate is 
a proposed aaaptive concurrency control algorithm oasea on 
an optimistic strateqy for insurind database consistency, 
Badal C2,3], A transaction scnetne employing suotr ansacticns 
with related atomic actions provides tne transaction moael 
for tne algoritnm. Tne proposea algorithm is oroviaea in 
Appendix A, 

For a distributed database system, the partitioned 
network environment introduces some difficult problems, a 
network partition occurs wnen two or more disjoint 
collections of nodes cannot communicate between tnemseives 
even though noaes in a given subset of tne net *or < are 
operational. In a database system wnicn croviaes some 
degree of availability in the face of network partitioning, 
tnis situation can completely destroy mutual consistency. 
As a result, most solutions to tnis prociem Droviae a less 
tnan desirable degree of data availability while operating 
in the partitioned mode. Because we consider availability 
of aata just as important as consistency for a distribute a 
system, and since tne proposed algoritnm provides varylnc 
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degrees of availaDility oriile maintaining mutual 
consistency, *e extend the algorithm to achieve a solution 
for the problem of the partitioned network and analyze its 
usefulness as a possiDle solution to tnat proclem. 

The transaction concept, which nas gained wiae 
acceptance in such areas as airline reservations, electronic 
fund transfers ana car rental applications, does not in 
Itself place any limitations on tne duration of transactions 
in a system. in this regara, there are some interestino 
parallels pet ween tne notion of a long-liveo transaction as 
introduced by Gray C 43 and tne notion of temporary oat a 
states whicn is contained in the proposal tor tne adaptive 
concurrency control algorithm. The parallels oecome more 
pronounced once tne algorithm is considered in tne context 
of a concurrency control mechanism operating unaer net*or< 
partitioning, we analyze this situation in this tnesis with 
the hope of sneuaing some licnt on tne subject. 

Chapter 2 is a summary of methods previously proposed as 
possiole solutions to tne aforementioned orooiems aeaiina 
with tne maintenance of consistency in a dataoase system. 
Chapter 3 introduces tne transaction model ana tne proposed 
algorithm. In cnapter 4 we extend tne algorithm to the 
network partition environment ana discuss its application to 
long-lived transactions. In cnapters b and o we provide an 
implementation of tne algor itnm as well as test results for 
different scenarios, eg. for various classes of 
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transactions, differing degrees of conflict rates, different 



complexities of non-ser iallzaole execution, 



etc , 
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II 



PREVIOUS *OPK IN TriESId SUBJECT AREAS 



A. INTRODUCTION' 

In tnis chapter #e discuss some Drior proposals which 
have teen lntroducea as possible solutions to the problems 
of concurrency control, networK partitioning, ana long-iivea 
transactions . In lookmq at concurrency control we are 
particularly interested in metnoas wnicn , while insuring a 
consistent dataoase, could also easily aaapt to the ever 
chancing dataoase environment. m tnis regard, *e 
discovered tnat there was a paucity or metnoas * Men 
provided any significant measure ot flexibility for either 
the dataoase designer or tne dataoase user. 

wniie analyzing methods for uealing with oartitionea 
network environments we are most interested in solutions 
whicn allow for non-stoo operation in all oar ti cions arter 
network partition, Three solutions in tnis area proved most 
attractive and provided some insignt towards the extension 
of tne proposed algorithm to the partitioned environment. 

At present, very little nas been written aoout tne 
long-lived transaction problem m dataoase systems. we 
therefore present some thouonts on tne subject Dy Gray [4] 
and make an attempt to analyze these concepts in lignt of 



tne proposed algorithm 



B. CONCURRENCY CONTROL 



Two pnase locxing requires a transaction to acquire a 
1 ocX on every data object it will access oefore any of tr.e 
locxs are released. Tnis reduces the availacility of tne 
data objects as some of the data objects locxed py the 
transaction could have Deer open to reaas or upaates while 
tne transaction was executing at ether aata ODjects, This 
method also has an adverse effect on tne level ot concurrent 
execution which is experiencea Dy tne transaction. Inis is 
true because no portion of tne transaction, nowever disjoint 
it may ce from other components of tne transaction, is 
allowed to execute in tne system until every data ooject is 
loc'xeo. nowever, wnen two-onase locxing is combined * itn a 
two-pnase commit policy such that commit occurs at tne enc 
or transaction execution, a sirnoie recovery method for 
transactions is provided. 

Time stamps proviae a second strategy tor concurrency 
control in a distributed database system.' Unaer this 
strategy, transactions are requireo to execute in tne oner 
of tneir time stamps. Time stamps, in conjunction witn a 
two-pnase commit policy, can ce almost as restrictive «s tne 
two-pnase locXing seneme in regards to aata object 
availability ana concurrency of transaction execution. 
Moreover, tne lacx of global system Knowledge at networX 
partition provides tne time stamp solution witn mgntmarlsn 
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proolems at merge time as consideration must be given to tne 
differences in time stamp assignment among ail tne comouters 
in the system. Neither two-pnase iocxing ncr time stamps 
provide a general solution to tne long-livea transaction 
problem as neltner provides a mechanism wnlcn can maxe a 
distinction between data wnicn is permanent ana data *nicn 
is temporary. 

A strategy for concurrency control wnicn seems to oe 
gaining in popularity is called optimistic cecause it freely 
allows transactions to execute within tne system and insures 
tnat tne results of execution are ser ial izable at tne data 
ODject itself. inis strategy is cased on th.e assumption 
tnat tne conflict rate at a given data ooject is low cecause 
tne portion of tne database accessed at any one time oy tne 
atomic action of a transaction is small, l.e., tne locx 
granularity is small, Oilman IbJ . Since it nas oeen snown 
that In many real-life applications tne prooaoility of 
conflict is low, several proposals for optimistic 
concurrency control nave been published. For a centralized 
database, Kung and Rocinson nave proposed a solution loj . 
This approach was elacorateo on by ceri ano Owicxi t / J and 
applied to a distriDuted dataoase system. aaaai 12,31 
described a different approach utilizing an alaoritnm 
intended for use in a olstrlDUtea system. It is tnis last 
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aoproacn , extenaea by Baaal ana McElyea 18J wnicn we 
invesltgate for partltionea network execution ana long-livea 
transactions , 

C. NETWORK PARTI HONING 

1 . One Partition solutions 

Tnere are numerous solutions allowing one partition 
operation in tne event the network experiences partitioning. 
Since these solutions restrict availaDiiity to an 
unacceptable deqree , xe spena ilttie time on their analysis. 

Examples of these methods are : voting, t o k e n 
passing and primary sites. In voting eacn site is assignee 
a weignt or nurooer of votes, when a partition occurs, tne 
sites in the partition witn tne most votes are tne sites 
which can process transactions witn the least restrictions. 
Sites in other partitions can process read-only type 
transactions. with token passing each aata object nas a 
token associated witn it mien moves from site to site, 
when a oartition occurs, tne site with tne token for a aata 
ooject may update that aata ooject. Primary sites is an 
approacn where eacn data object nas a site assignee to it 
which is responsible for a data object's activities. At 
partition time, if a transaction is executed in a partition 
tnat contains all tne data objects in its read and write 
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sets, the execution is allowed. Utnerwlse, only rean 
operations are permitted. 

Sacn straceqy attempts to make tne upaatina ot data 
objects site-specific according to a set of rules and 
constraints. Since the methods restrict activity (usually 
updates) in some partitions, data availapillty is aecreasea. 
Consistency preservation varies troro metnoa to metnoa . in 
voting, consistency is easy to maintain witn a mgn cost in 
availability as only the partition with tne most votes can 
perform update operations on data objects. This degree of 



preservation is 


not 


the case 


w i tn 


the primary 


strategy, wnich 


is 


similar to 


tne 


token metnoa 



primary site for updates could be involved in a nard crash 
and an alternate site is designated as a oacxup. Over all, 
each of tnese methods fall short ot a oenerai solution to 
the desirability ot achieving a reason dole balance Detween 
insuring consistency in a database and providing a nign 
degree of availacility at all sites. 

2 , Kulti-Partitlon Solutions 

Approaches to tne partitioning proclem nave seen 
suggested wnereoy consistency is maintained tnrouqnout tne 
system and increased availaoility is provided at any given 
site . 

Parker and Ramos (9) prooose a method wnicn would 
utilize a log-filter ana version vector scneme to aetect 
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multiple rile joint consistency. Tnis prooosal a a cresses 
tne automatic detection of mutual inconsistencies at tne 
file level and at the partition merge interface. it a oes, 
nowever , rely on user intervention during processing to 
decide on a course or action once certain types of conflicts 
are detected. In addition, tnis approacn allows tor some 
low level of inconsistency to exist in tne file system for 
snort periods of time after a transaction nas in tact 
committed . 

An approacn involving semantic Knowledge aoout the 
datapase applications was proposed cy Faissol CiOj. ^ive 
classes of semantics spanning the most simple operation to 
tne most complex are useo to alio* uooates in inaepencent 
partitions. Each class snares a common merge algorithm 
which can be tailored to a particular application cy tne 
application programmer. At present, of tne proposed 
solutions to tne partitioning prooiem, Faissol's approacn 
seems to De tne most interesting ano complete. He aces, 
nowever, assume that a concurrency control mechanism exists 
wnich will insure consistency in each lndlvicual partition 
during periods of networx partition. Tne most attractive 
feature in the proposal is that users may operate the system 
under partitioning m a manner wmcn assures reconciliation 
can oe performed automatically at merge time, 

A method for automatic control of consistency and 
database data object reconciliation wnicn relies on tne 



manipulation ot precedence graphs is proposea in eresani 
till. In this approach, use is maae ot faissol's rorc.ai 
definition of correct partitioned moae operation. Partition 
logs are utilized to store information necessary tor use oy 
a partition merge algorithm. Transaction activity is stored 
in these logs which, at merge time, are converted into 
precedence graphs, l'nese grapns are inspected to insure 
tnat a resultant glooal schedule ot transaction execution is 
serializable for ail partitions. 

with tnese papers as oac<grouno, in cr.apter 4 v»e 
investigate our prooosed adaptive concurrency control 
algor itnm as a possiole candidate for the concurrency 
control mechanism, during normal system operation, a' n i 1 e t n e 
system is partitioned, ana at partition merge time. so 
tnis investigation in the nopes that it may provide a n a t 
seems to be a more general solution to tne network 
partitioning problem. 

D. LONG-LIVED THANSACTIONS 

Gray [ 4 J introduces transactions which can persist in a 
system for long periods of time before they commit. These 
transactions may nave lifetimes that can be measured in days 
or weeks, for Instance, applications sucn as travel. 
Insurance and escrow commonly nave transactions > nose 
durations span sucn time frames. Gray envisages solutions 
to long-1 1 vea transaction situation as having to accept a 
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lower degree ot consistency wltnin tne dataoase 



,ie look to 



an extension of tne proposea algorithm as a possiole 
concurrency control mechanism for long-iivea transactions. 
This mecnanism should not require tne acceptance ot a 
lower degree of consistency in tne nandling of tnese types 
of transactions . 
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TRANSACTION MODEL AND TrtK PROPOSED A LOOK II riM 



A, DESCRIPTION UF THE TRANSACTION MODEL 

This section descnoes the transaction model, tne 
components ct the concurrency control mechanism ana 
transaction execution under concurrency control. 

Eacn transaction enters ana exits tne aistrlouted system 
at one site, called tne initiating site. It is composed of 
one or more atomic actions each of wnich performs either a 
read or an update on a sirgie data ocject. Interdecenaer.t 
atomic actions are groupec into suotra.nsact ions . X'ne 
suDtransactions may execute concurrently or sequentially. 

A conflict history is a cart or eacn transaction curing 
its execution. This history is a record or tne 
transaction's conflicts w 1 1 n other transactions. conflict 
is defined as occurring wnenever two transactions execute 
any ccmDination of read or ucaate of tne same data ooject 
except read-read. Tne conflict nistory is upoatea with 
information held at each data oDject visiceo py tne 
transaction. This information is held in a log (DO Log). 
The DO Log holds the record of a transaction ' s activity 
against the aata oolect along with data from tne 
transaction's conflict nistory. The oO bog, wnicn operates 
in a fashion which is similar to tnat of a s tac< , is updated 
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whenever the transaction accesses the data ooject. fne 
Log also indicates tne transaction's status as temccrary, 
committed or aoortea, a committed entry denotes a committed 
transaction, i.e. one whose initiating site n a s determined 
the execution cycle to oe complete for all of its 
suotransactions . It a transaction is in conflict ^itn an 
entry in the log wnich is not committed, it marxs its entry 
as temporary waiting etc*)), *nen all previous temporary 
versions (versions generated uy other transactions j are 
committed, a transaction's temporary version, tl*), is 
changed to ready to commit (t(r)), for tne case wnere a 
transaction nas to acort, any transactions wnicn nave 
temporary versions oased on tnat transaction also must 
aoor t . 

During transaction execution, a local concurrency 
controller, resident at eacn site and executing a copy of 
tne adaptive concurrency control aioontnm, utilizes tne 
information contained in tne transaction's conflict history 
and tne contents of tne DO Leg to detect ana resolve non- 
serializatle execution at eacn site. Xne concurrency 
control mecnanisiit constructs a precedence relation from tne 
information in tne DU Log ana tne conflict nistory. A non- 
seriallzaole execution occurs *nen a transaction appears in 
more tnan one piace in tne relation, *nen non-serializaoie 
execution is detected, tne concurrency control mecnanism 



will restore serializable execution via a roiloacx ana 



reexecution process wnicn may involve one or more or t n e 
transactions present in tne preceaence relation, in« 
restoration of seriaiizaoie execution can oe accomoiisned 
utilizing a metric indicating tne amount of 11 '# o r k 11 performed 
Dy the transaction, 

wnen a transaction attempts to read or update a aata 
ooject at a given site, it may or may not fina the ooject 
locxed Dy anotner transaction, if tne ooject is net locked, 
tne transaction executes on it, however, should a locx oe 
encountered, tne transaction waits for a predetermined 
period of tine, if tne previous transaction releases tne 
locx oefore tne time-out period expires, execution will 
continue, w i tn tne locx still beinq present arter time-out, 
tne transaction attempting to access tne object senos a 
conflict nistory to its initiating site, and indicates it is 
d locked at tne site. It will tnen oe up to tne initiating 
site concurrency controller to proceed witn tne transaction 
execution , 

Cnee a transaction is allowed access to a data ooject, 
it loexs that object and begins its execution. Snoula tms 
transaction oe in conflict, it may elect to nold its lock on 
the data ooject until tne previous temporary version eitner 
commits or aborts, or tne transaction may release tne locx 
after creating its own temporary version. If tne former is 
tne case, tne snort duration locx oecomes a long duration 
locx and tne concurrency control algoritnm switenes from tne 
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optimistic inoae to tne pessimistic moae. Trie numoer cr 
temporary versions (nJ allowed to build up at a nata ocject 
can be adjusted to meet various application criteria ana 
storage tecnnoiogies , if n = 0, then tne algorithm 
functions similar to two*pnase locking w i t n two-Dnase 
commit. For higher n# tne algoritnm allots a areater aegree 
of concurrency, 

T*o points snould be noted here, Tne rirst is that wnen 
n = o, a deaalocK detection process will ce reauirea ano 
secondly, when n is high, a domino effect can occur wnereov 
all transactions wnose temporary versions are oasea on an 
aborted transaction's temporary version must tnems elves 
abort , 

To illustrate in more detail hew tne alaoritnm performs 
its concurrency control functions, a view is ta<en of tne 
transaction as a carrier of information. The transaction 
carries its conflict history from site to site ana if a 
transaction FORKS to execute suotransactions concurrently, 
eacn transaction carries a copy of tne conflict ni story witn 
it. At eacn site, tne transaction attempts to detect ana 
resolve non-serializacie execution ana in tne process, it 
updates its own conflict history wnicn is deposited at tne 
site in the data object's DO uog, when tne transaction 
completes its wor<, it returns to its initiating site. Any 
concurrently executing subtransactions JOIN as tney move 
towards the Initiating site and tneir conflict histories are 
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mergea, before a transaction exits tne system, it must 
ensure it nas generatea only serial izaole execution curing 
its journey tnrougn tne system and only tnen may ic commit 
all of its temporary versions. 

At the initiating site tne transaction's entire conflict 
history, accumulated during its execution througn tne 
system, is inspected. if the conflict nistory is empty , tne 
transaction is ready to commit and it will so notify earn 
site * n e r e it nas temporary versions. snouia a conriict 
history contain entries, tne transaction senes a cooy of its 
conflict nistcry to tne initiating site of eacn transaction 
listed in the history. The transaction tnat sent its 
conflict nistory to otner sites then invokes tne initiation 
site's concurrency controller. A precedence relation is 
constructed from tne concatenation of this conflict history 
and any conflict Histories received iron otner transactions, 
if no non-serlalizable execution is detected, tne 
transaction will send its preceoence relation to tne 
initiating site of wnicnever transaction it last added to 
Its precedence relation. Tnis process continues until 
either non-seriaiizacle execution is detected or until the 
transaction receives a precedence relation wnich only 
duplicates relations currently held. in the latter case, 
tne transaction is reaay to commit and it will be necessary 
tor tne transaction to broadcast a commit message to eacn 
site wnere the transaction nas temporary versions. 
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for tne case wnere non-serializaole 



execution 



Indicated, seriallzaoie execution Is restored in tne same 
manner as before, w 1 tn conslaeration qiven to tne economic 
factors involved in restoration. unce non-ser iali zaole 
execution is no longer a possibility for a given 
transaction, the transaction enters its commit onase * r, e r e 
it -Kill commit all of its temporary versions. Inis onase is 
complete when all the temporary versions on wnich tne 
transaction nas casea its temporary versions nave comrmtteo 
ana tne transaction's status is marked commit at ail tne 
data oojects visited. 

Considering the case where the initiating site nas 
received a conflict history from a suDtransaction wnich nas 
been blocked cut of a data object ana nas experiencea a 
time-out condition, tne initiating site takes tne same 
actions tnat it would nave ta<en it tne transaction naa 
completed its course and returned to the initiating site. 
In this situation, any restoration reauirea snouid allow 
tnis transaction to execute last oecause if it aia not, tne 
transaction may create more non-ser iaiizaoie execution after 
restoration . 

The advantages of tne proposed algorithm can ce 
summarized as follows: 

1, when there Is no conflict, it functions with minimum 
overhead. There are fewer messages required to commit a 
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transaction thougn it must be Dolnted out tnat cms 
reduction is acnievea at the cost o£ losing site autonomy 
for a longer period of time, 

2, An Increase in concurrency may oe acnieved oy 
allowing transactions to access results genera tea from other 
transactions not yet committed, Tne aigoritnm is consioered 
optimistic in tnat it is assumea that those "not yet 
commlttea" transactions will eventually commit, if tnis 
aoes not occur, tne amount of worx .vhicn must oe unuone can 
oe limited by a locking mechanism, 

3 , The algorithm can switch oetween pessimistic lusina 
long duration IocksJ and optimistic cusinq short duration 
locKs) modes at any time and for any aata object. Tnus, m 
tne same oatacase, nign contention riles can ocerate m tne 
pessimistic mode ana low contention riles in tne optimistic 
mode - all oeing controllea oy the tne same concurrency 
control algorithm. 

6. TRANSACTION EXECUTION EXAMPLE 

For this example we assume tnat each aata object 
accessea by a transaction is located at a different site 
wltnin tne distributed system. Data oc j ec t <a> win oe 
located at Site A, aata object \d> at Site b, and so tor tn . 
Furthermore, assume tnat a relatively low degree of 
concurrency is desirea and tnus tne algorithm will swi ten 
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from optimistic 



to pessimistic 



mooes 



wnen 



eucn 



suDtransaction encounters Its first conflict, i.e., n = 1. 

Let transaction ri enter tne system at site a, n 
consists of only one suotransaction wnicn first executes at 
Site C. T 1 tnen transits to Site a where it, upon 
inspection of the applicable l»u uoy, detects a conrlict * i tn 
transaction T2, T1 executes on that data ooject ana nolas a 
Iock on it as It returns to its initiating site, Site a. 
Tl's conflict nistory contains only 12 at aata ooject c Aim 
a metric reflecting tne amount of worx cone oy ootn 
subtransactions uo to tne point m time of tneir reaching 
data object d. a viable form tor tne conflict nistory 
entry, and tne one useo in this example, is given as: Tl : 
IT2T1 : b : 7 > « 

Transaction r2 enters the system at Site D , it also 
consists of only one subtransaction wnicn first executes at 
Site 3, tnen moves to Site F, It mere aiscovers tnat it is 
in conflict witn transaction Tj. it executes on data ooject 
f, updates its conflict history to incluae {TJr2 it ; it, 
nolas tne locx on {f>, and then transits to site C. At Site 
C it encounters a lock wnicn is nela by IS, After waiting a 
time-out period, 12 finas me locx still present. it senes 
a message to its initiating site containing its conflict 
nistory and tne fact that it is blocked at site c, Tx will 
mark its conflict history with a to indicate tnat it is 
still executing. 12 : <T3T2 : f : 4 t>. 
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Transaction T3 enters the system at site E and consists 
of two subtransactions: ST31 and ST32. ST31 transits to 
Site F, executes tnere, and tnen returns to its initiating 
site. Site t, Suotransaction ST32 moves from Site r. to site 
C to execute tnere. After ootainino tne locx ana checking 
tne DO Log entry, ST32 discovers tnat it is m conrlict *itn 
transaction Tl. ST32 will execute at data ooject c anc <eeo 
its lock as it also moves oac< to site t, its initiating 
site, wnen ST 31 ana ST 3 2 JOIN, they win merge their 
separate conflict histories to form Ti's conflict nistory. 
Since ST31's is empty ana ST32's consists of Tl at aata 
object c (assume tne metric to De li) tj's conflict nistory 
Will oe T3 : mxi : c : 11 > . 

w'nen all of a transaction's suDtransaccions nave 
returned to their initiating site eitner tne transaction 
will oe able to enter its commit pnase or it win oe 
necessary for it to invoke the site's concurrency controller 
In order to detect ana resolve cossioie non-serializeoie 
execution. Since in our example eacn transaction nas a 
non-empty conflict history, tne initiating site must attempt 
to aetect non-serial izaole execution. Eacn transaction w i i 1 
send a copy cf its conflict history to tne initiating site 



of each transaction in its conflict history 
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Eacn transaction will construct a precedence relation 
from tne concatenation of its conflict nistory *'itn any 
conflict nistory it nas received from otner transactions. 
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A precedence relation nil reveal tne presence of 
serializaole execution if, once a transaction nas received a 
conflict nistory wnicn it r.ao received oreviousiy, it is not 
able to detect non-ser ializacle execution. That is, it in 
adding a relation to its preceaence relation a transaction 
adds only duplicate conflicts, and if arnonast all tne 
conflicts present in its oreceaence relation no cycles can 
oe detected, then that transaction r s execution sequence is 
ser ializaole , Transactions will continue to oass tneir 
conflict Histories to the initiating site of wnicnever 
transaction was last aoded to its conflict nistory, until 
eitner non-serial izable execution is detected or tne 
precedence relation can detect serializable execution, as 
above. Since, in our example, we nave not yet reached 



either ot these conditions, it is necessary to oass tne 
precedence relations whlcn have accumulatea up to tms :cirt 
in time, They will be passed as follows: 

II — — > 13 

r 2 ----> i'i 

r 3 > -12 

Each transaction constructs a new precedence relation 
from tne relations it receives: 

T l : (T2T1 : o : 7 

r l t 6 : c : 1 1 
1 3 T i ; r : 4 + 

T2T1 : o : 7) 

T 2 : { T3T2 : f : ** + 

r2Tl : o : 7 
I1T3 : c : ll 
T 3 T2 : t : 4 + > 

T 3 : { T l T3 : c : 11 

1312 : r : 4 + 

T2X l ; 6 : 7 
T i T 3 : c : 1 1 > 

Each transaction can now detect that non-serializaole 
execution has occurred since a transaction is listea in more 
tnan one location. Since 12 is still executina, it is oest 
to resolve tne conflicts in a way wmcn will allow r 2 to 
execute last. (If none of tne transactions are still 
executing then the least cost transaction pair wouic oe 
rolled oack to break the cycle). This means that 12T1 is 
tne transaction Pair wnich must be re-executeo at oata 
object b in oraer to resolve the non-serializable execution. 
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T 1 and 12 roll back to Site o 



11 executes ana returns to 



Its Initiating site with an empty conflict nistory and is 
able to commit , when 1 1 commits/ T3 will cnar, qe t n e to Leo 
entry at data object c to tCr), release its locx on ic> , ana 
commit. After Tl nas re-executed at {b>, 12 will oe able to 
re-execute at ib>, at if}/ and at ic>. At each aata object 
12 will acquire a lock, execute, ana mark its versions as 
t(w) or t(r) depending on how long it taxes Tl ana 13 to 
commit , 

Commit will occur in tne following manner. Once tne 
cycle Is broken, 11 will oe returning to its initiating site 
witn an empty conflict history ana all of its versions 
marked t(r). Tl broadcasts a message to all of Its sites 
telling them to commit their DU Log entries, as soon as 11 
commits, 13 will release the lock that it is nolaina at bite 
C and send a message to its initiating site saying tnat its 
temporary version at Site C is ready to commit, as tms is 
the only t(w) version that 13 was waiting for, 13 can now 
broadcast a commit message to all its sites. At tnls point, 
transaction T2 ' s temporary versions win nave tneir 
designation changed to t(r), tne locks held by 12 will ce 
released, and messages will be sent to T2's initiating sice 
indicating that the sites are ready to commit. Lastly, i'i 
will oroadcast a commit message to those sites. 
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IV 



EXTENSIONS TO Trie PROPOSED ALGORITHM 



A. LONG-LIVED TRANSACTIONS 

Tne usefulness ot tne transaction concept in 
applications suen as electronic fund transfers, airline 
reservations and car rentals nas oecome evident m tne past 
few years. Tne traditional transaction model for tnese 
applications assumes tnat tne transactions are snort Uvea 
l.e,, they are transactions of snort duration, however, tne 
concept 11 transaction” does not In itself Imply any 
limitation on tne lifesoan or tne transaction in a system. 
It would seem that a more general concept of a transaction 
would not impose any time limit on tne duration of tne 
transaction. In fact, there are many applications suen as 
escrow, travel, insurance, legal proceedings, etc., wnicn cy 
tneir nature require transactions *nicn can last for a lono 
time. Gray C 4 ] calls tms class of transactions iong-Hvec, 
we will attempt to snow now tne transaction model ana tne 
adaptive concurrency control mec nanism presented in IBj may 
oe appllcaoie to tne problem of supporting lona-livea 
transactions. This proolem is also adaressed m [y,dJ. 
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1 , Compensating Iransactlon Approacn 



In a conventional transaction environment, wnen tne 
effects ot a committed transaction must be altered, a 
compensating transaction is run to pac< tne value out. inis 
metnod is not general in tnat it only applies to commutative 
operations and it is somewhat aeceptive in that tne user nes 
oeen led to believe tnat tne value or tne aata opject, orior 
to compensation, was permanent wnen in fact it was not. 
Moreover, other users may nave made decisions cased on tne 
data object value with tne understanding tnat tne value may 
oe permanent. what each of tnese users nave seen dealing 
with is tne outcome of a long-lived transaction ana not a 
permanent aata ooject value. It may ce true tnat 
Individuals wno worn in tnis environment are a*are ot tne 
Pitfalls of making decisions in tnese situations and act 
accordingly. But, we believe that tne system should provide 
a vehicle whereoy tne user can oe maae explicitly aware that 
the data value he is dealing with is temporary. 
Additionally, tne compensating method itself may not ce 
generally applicable. This may be because different parties 
who are affected or involved in tne long-lived transaction 
seem to have differing views as to what constitutes a 
transaction. For example, from Gray L 4 J , in a reservations 
scenario: "The customer thinks of this whole scenario as a 
single transaction. rne agent views tne fine structure of 
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tne scenario, treatlno eacn step as an action. lhe airlines 
and hotels see only indiviuual actions out vie * tner„ as 
transactions. This example m a < e s it clear tnac actions may 
ce transactions at tne next lower level of abstraction." 

2 . A More General Approach 

It seems tnat organizations whicn deal with tne 
applications iistea a cove view tneir transactions with 
customers as separate actions even tnougn eacn action must 
oe accomplished to satisfy the customer's reauest. Some of 
tnese actions, are long-lived. Using tne reservations 
example, it seems tnat the transaction involved nas t w o 
levels of atomicity? one dealing witn tne generation of 
temoorary data and tne other * i tn commitment (or acortion) 
of tne data. It is this property a men leads us to cel le ve 
that a mechanism should ce provided to tne dataoase user 
tnat can maxe tne nature of tne aata more explicitly <nown. 
In tnis reyarc, tne user requires that two choices ce mace 
availaole to him cy tne system : a) the acuity for the user 
to be made aware of the temporary nature of tne data oejeez 
and/or o) a capaoility suen tnat tne user can he presented 
with the illusion tnat tne temporary data is permanent wner. , 
in fact, it is not. Nothing we see in tne compensating 
transaction scheme allows for cnoices such as tnese. Another 
conceptualization of tnis idea is to view tne temoorary data 
as conditional data which becomes true only when tne 
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long-lived transaction commits. For example, tne granting 
of a loan to an applicant is a temporary state for an escrow 
process as it is predicated on ail of tne conditions ot tr.e 
escrow oeing satisfied. The loan is executed (committed) 
only if tne conditions are met; otnerwise it is canceled 
(aborted) . 

3 . Temporary versions and Long-Lived Transactions 

As tne adaptive concurrency control algorithm is 
based on temporary versions of aata objects and temporary 
states for data, one can expect tnat tne proposes adaptive 
concurrency control mec nanism can naturally support tne 
execution of long-lived transactions . This expectation is 
basea on the fact tnat the algor ltnm treats long- lived 
transactions in the same manner as snort-lived transactions . 
This manner of treatment is possible as botn types of 
transactions generate temporary versions; tne oniy 
difference is tnat lona-iivea versions are more oersistent. 
As a result, even thougn long-lived transactions seem to 
generate mostly temporary data, they provide no additional 
complexity for tne concurrency control mecnanlsm. 

The transaction model and tne temporary versions 
introduced in tne oroposea alyoritnm provide the properties 
we deem necessary for tne user's more realistic view or nis 
data, Sadal 112], Cur reasons for coming to tnls conclusion 
are twofold. First, tne suDtransaction scneme nas t*o 
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levels of atomicity. One deals with tne generation or 
temporary data and tne second oeals -vitn tne commitment or 
aDortion of all tne suotransaction's temporary versions, 
inis fits nicely witn our conception ot the two levels of 
atomicity displayed Dy long-lived transactions Cfor a given 
transaction# all temporary data actions nave to occur ana 
all temporary aata eitner becomes permanent or soortsj , 
Secondly, tne use of time stamps for temporary versions ana 
their permanent storage would allow tne concurrency control 
mechanism to supoort queries using time reterences sucn as 
"wnat were the values of data ooject x at time t". This, of 
course, is a matter dependent on apolication reauirements 
ana available storage technologies. 

4 . Temporary Versions ana tne Domino affect 

Since the 1-th version of a aata ocject is created 
by updating tne (i-l)-tn version, ana since the l-th version 
cannot commit until all versions it is cased on commit, tne 
possibility exists for a domino effect when a transaction 
aborts. This Is true because *nen tne the <-tn version of a 
data ODject is aborted all j versions, j>k, must also aocrt. 

Problems wnich may be posed by tne domino effect can 
be minimized because tne effect can be limited Dy the user 
varying the number of copies of the temporary versions 
allowed to exist at a data object at any one time, i. e., py 
varying the value of "n". Moreover, tne comino effect in 
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our 



scheme 



and 



the compensation transaction in 



:r. e 



conventional system are in tact tne same thing trom tne 
user's viewpoint. faotn result in tne user losing tne value 
of tne data object which was current in the user's view of 
the database. However, it should oe noted tnat the proposed 
adaptive concurrency control mecnanism itself is intenaeo to 
minimize Interference among transactions. This is aue to 
tne mecnanism ' s detection of non-serlalizaole execution on 
tne smallest pcssioie granularity i.e., tne accessed record 
field. This will decrease ana possicly eliminate all 
conflicts among transactions. 

It may be possiole to minimize tne domino effect for 
the proposed algorithm througn tne application or two 
methods. The first method would capitalize on tne 
commutaple nature of most types of data in tne 
aforementioned application areas. This would allow versions 
cased on an aoorted version to remain active after some 
acceptaole adjustment to tne data object values. The use of 
a recovery aigoritnm based on tne semantics of tne data is 
the otner method which could help to aorogate any primary 
concerns aoout the effect of multiple temporary versions 
Deing aoorted. inis scheme is closely associated with tne 
particular type of application tne Detfs is servicing because 
semantic considerations are directed to the meaning or tne 
data. An example, from Faissoi lloj. will demonstrate tne 
semantic constraints wmch may apply to a oata ooject: in a 
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credit-debit environment, "money is conserved", i.e., every 
credit to one account must be matcnea to a cecit to some 
other account. To facilitate these Kinds of semantic 
considerations, the DbMS must oe aDie to proviae tne 
application programmer with a vehicle for construction of 
semantic-based algorithms whicn can oe applied to tne 
temoorary versions resident at a given aa ta ooject, 

5 , Conclusion 

The proposed optimistic concurrency control 
algorithm seems to have an innate aoility for nancling 
long-lived transactions, because tne algoritnm can proviGe 
to tne user a more realistic view of temporary data while 
providing a man level of consistency, we believe its 
extension to the prodem of long-lived transactions mignc oe 
possiole. 

a, NETWORK PARTITIONING 

A distributed aatabase system nas tne potential 
advantages of greater aata availability and reliability 
since data objects may oe replicated ana nence accessed at 
several sites tnrougnout the system. If, however, 
consistency among copies of the data is more important tnan 
availability, multiple copies mignc not provide any 
improvement in availaoility, w 1 1 n consistency as tne 
primary concern tne system would either oe holding ioc<s on 



data oojects to prevent inconsistencies from arising cr it 
would be spending a large amount of time aetecting and 
resolving inconsistencies , titner or tnese actions would 
detract from data availability. 

Mutual consistency reauires that it all update activity 
were to cease, after some period of time all cooies of the 
same data will converge to the same value. mere are 
numerous .known algorithms for maintaining mutual consistency 
during operation of a aistriouted dataoase, 16 , 7 , 1 3 , i 4 j . 
'Ihese algoritnms don't, however, aeal with the auoeo 
complexities wnien arise when the network Becomes 
partitioned, A network partition occurs when two or more 
disjoint subsets of sites in tne network can not exchange 
messages through the network even tnougn some or ail of them 
are operational. 

1 . Partitioned Processing 

Given that a system is partitioned there are three 
different general approaches to nanaling transaction 
processing, witn each tnere is a trace-off between tr.e 
level of data availability ana tne amount of error t 
necessary to restore system-wide consistency once tne 
partition ceases to exist - as availaoility is increased so 
is the amount of effort required for restoration of 
consistency. 
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a. halt Processing 

Une possibility is to halt all transaction 
processing until tne n e t w o r < is completely reconnected. 
This is one extreme wnereoy aata availability aces to zero 
and no need exists to restore consistency upon system merge 
(cue to tne partition). 

b. One site execution 

Tne usual solution is to alio-* only sites vvltom 
a chosen partition to process transactions tnat upaate aata 
objects. All sites still nave tne caoability ot acceotino 
read-only transactions , enough tne data reaa will possibly 
oe out of aate. This solution certainly allows some aegree 
of availability, tnougn at a cost ot tne overhead necessary 
to correct arising inconsistencies. Any inconsistencies 
wnlch ao develop, however, are fairly simple to resolve 
during system reconciliation. me resolution may oe 
accomplished cy merely propagating any updated data objects, 
from the one and only site w n i c n was allowed to 
upaates, to all otner sites wnere that aata is reoiicatea. 

c. Concurrent Execution 

Another solution would oe to continue operating 
all sites "in parallel” auring tne partition ana to 
reconcile tne databases at oartition merge. It wouio oe 
wortnwnile to nave all partitions in operation (allowing 
cotn read and upcate capability) it availability ot aata is 
more important than maintaining its consistency, provided 
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mat "conflicts" 



d e t w e e n copies or a a t a can always o e 
automatically reconciled wnen communications are r e - 
establisned . 

2 . Requirements for Concurrent execution 

If sites witnin disjoint partitions are allowea to 
continue operating, tnere are three general requirements 
which must oe satisfied in order for a system to oe viaoie. 
a. Integrity constraints 

Integrity constraints must not be vioiatea. Ir.e 
two components of integrity constraints described m Faisscl 
CIO] ara operational constraints and semantic constraints. 
Operational constraints wnicn mignt result in 
Inconsistencies in any given partition will be nanalec cv 
our concurrency control mecnanism. semantic constraints 
present in eacn partition of a partitioned networ.K neea not 
differ from the constraints present wnen tne n e t * o r k is 
completely connected. 

If, n o w e v e r , tne semantic constraints present 
when the networ< is completely connectaa are correctly 
modified to reflect operation in a partitioned environment, 
tne system reconciliation can, in some cases, oe maoe a 
trivial process. That is, if sufficient semantic Knowledge 
is usea, the transaction schedules produced in eacn 

partition may oe made Independent. if Site A is partiticneo 
from site a and tne partition's transactions are 
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independent , tns reconciliation process may oroceec S s 
follows: Site transactions could oe execute 3 on too of 
Sire A's to produce aata object values at Site A *mcn could 
then oe taken to nave the "correct" values. These new 
values would simply oe passed to Site d ana installed at tne 
replicated data objects. 

Semantic constraints present wnen the network is 
completely connected must necessarily oe modified to allow 
updates witnin disjoint partitions. Consider an airline 
reservation system and a specific ilignt witn 200 seats. it 
is odvIous tnat it tne reservation system were to partition, 
it would not Pe feasible to allow tne reservation or 200 
seats within eacn partition. semantic knowledge mignt 
dictate tnat eacn partition has control over reservations 
for half of the seats. Certainly the necessary semantic 
modification for tne partitioned environment will ce 
application oecenaent, Also equally certain is tne fact 
tnat in any relatively large system it would be lmpossiole 
to produce a complete set of semantic constraints which 
would oe capable of nanoling all possible partitions. *•» 
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most general case. 
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d. Control external Action 

External actions must ce controlled. T.nese are 
non-recoveracle actions (e.g. a discersea payment). Because 
of the independent processing nature of eacn partition, the 
proolem of external actions is complex . Tne aataoase 

manager most lively will restrict external actions a hen 
operating under partitions, possioly Dy allowina only cnosen 
sites to execute transactions net easily reversed, 
c. Restore Mutual Consistency 

Upon elimination oi tne oartition, mutual 
consistency among replicated aata objects must oe restored. 
Through tne use of tne concurrency control mec nanism tne 
internal consistency of any one partition can oe preserveo. 
However, since tnere is no communication between tne 
partitions, tne transactions executing in eacn partition nay 
cause tne values of data objects replicated in different 
partitions to diverge. This divergence destroys mutual 
consistency ana results in a aataDase no longer meeting its 
assertions once tne partition is merged. ms discussed 
above, semantic constraints tray oe utilized in a limited 

number of applications to acnieve tne required 

reconciliation. Discussing a general solution to tne mutual 
consistency problem is the primary goal of this section. 
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Solving The mutual Consistency p r o d 1 e m 



In oraer to ascertain the correctness or cne 
approach to be presented in tnis section we must have an 
understanding of what correct operation in a oartitioneo 
environment consists of. we will consider first an iaea 
wnicn is presented in Faissol tio). 

If S is a scnedule composea of transactions navina 
executed witnin two disjoint partitions, we are concerned 
witn determining a schedule equivalent to some serial 
execution or S, it need not necessarily be a scneoule 
equivalent to 5. It snouia be unaerstooa that tnis concept 
of scnedule equivalence might not produce the same results 
as would be obtained from a connected network (aue to tne 
concurrency there may oe different "correct" sets of 
results), but this will cause no prooiem if serializacility 
is the criteria tor correct system operation. 

Our approach for handing mutual consistency ta<es 
tne following form. After a partition occurs, transactions 
witnin each, partition will continue to execute auainst tneir 
data oojects, some of which are replicated in at least one 
other partition, witnin each partition, at a site 
designated the control site, a Partition Leg is created. 
This log will nave information accumulated in it aoout every 
transaction's activities within tne partition. It will 
contain information apout activity against eacn aata ooject 
such as transact ion-IDs # read and write sets of tne 
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transaction, conflict histories, and tne old arm new values 
of tne data object. Tne necessary Information w i l i ca 
collected by each transaction as it passes tnrouon tne 
system, inis information will De passed to and storeo m 
the Partition Log in tne order in wni ch transactions nave 
finisned execution. if a transaction whicn nas completed 
its execution is rolled bac:< by the concurrency controller 
in order to maintain serializacle execution w i t n l n tne 
partition, then it will be necessary to remove tne roiled 
bacK transaction's data from tne Partition Log. Inis will 
result In a total ordering of the transactions for a given 
partition . 

At partition reconnect time, activity will ne 
allowed to continue only for transactions which had already 
begun execution. It is necessary nrst to create a static 
environment throughout tne system sucn tnat no new 
transactions are allowed to enter aim all ola ones nave 
completed execution. 

The reconciliation process begins by using tne aata 
contained in each Partition Log to create a serial scnecule 
for that partition. Since the scnecule contained within any 
one Partition Log resulted from execution insured 
serializable by tne partition's concurrency controller, tne 
serial schedule produced is guaranteed to be cycle free. 

Next, it is necessary to construct a global 
precedence relation utilizing cctn tne serial schedules 
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which have been produced and information contained in each 
Partition Log. Cnee the glooai relation is constructed it 
is necessary to inspect it for cycles. if tne relation is 
acyclic then the transactions containea witnin are 
serializable (Davidson 115J contains a proof of this) ana it 
is sufficient for restoration of consistency to for war a tne 
updated values of modified data oojects to tne sites 'mere 
replication occurs. 

Both wrignt (loj and Daviason [ib] discuss tne 
construction and use cf a preceaence grapn to orovlae a 
means for determining the transactions wnich snouia oe 
rolled oacx. we will use their apDroacn, moditlea to fit 
our implementation strategy ana concept of conflict 
histories and preceaence relations. Their precedence grapn 
G = ( V , £) is definea as tne vertices v oeina tne union of 
tne transactions from ail partitions, and tne eoges E oeina 
the union of "Oeoendency Edges” (wright, or "Plopie Eaaes", 
Daviason) with "Precedence Edges" ana "Interference Eages". 

Dependency Eages are eaces mien represent tne fact 
tnat one transaction read or wrote a value wnlcn naa ceen 
previously updated oy a different transaction in tne same 
partition. The presence of Precedence Edges indicates tne 
fact that a transaction read or wrote a value wnlcn was 
later changed oy another transaction also in tne same 
partition. Interference Edges appear wnen a transaction m 
one partition has read or updated a data ooject and any 
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transaction In anotner partition also nas updated tnat a a ta 
object . 

The "Dependency Edges" ana "Precedence edges" nave 
already been constructed by our concurrency controller wn len 
has regained active within eacn partition. iney are 
Included as conflict history pairs m the Partition Logs. 
It still remains for us to construct a conflict pair for any 
transaction which reads or writes a data oDject in one 
partition ana tnat same data ODject is u o a a t e a in a 
different partition - tne Interference Edqes. 

For example, if transaction i’l reaas data ooject a 
in partition I, and transaction 12 writes aata ooject a in 
partition II, then tne conflict pair "T1T2 : a" must oe 
included in the glooal relation. If ootn transactions naa 
written aata ooject a tnen eacn control site wouia insert a 
conflict pair in the glooal relation: "T1T2 : a" and " 1 2 i l : 
a". rnis would easily oe detected as a cycle ana either 11 
or T2 would be rolled oack to a point wnicn proceeded its 
execution on data object a. me metric wnicn must oe 
present in conflict pairs snouid oe calculated as a function 
of tne work wnicn each transaction nas performed. 

Once all conflict pairs are constructed it oe comes 
convenient to consider each partition's control site as tne 
only site within that partition. That control site should 
nave the complete set of conflict histones wnicn were 
derived from within its partition plus tne aaaea 
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"Interference Edges" and it snould invoke a "Partition 
Concurrency Controller" algorithm whicn is essentially our 
implemented procedure "GLCBAL-aS" (see Appendix 6). mis 
invocation will cause the passing of conflict n is tones 
oetween control sices and tne suDseguent detection of any 
cycles. The cycles will ce detected ana eliminated in 
exactly tne same way as is taking place at cotn data opjects 
and Initiating sites when tne proposed concurrency control 
mechanism is insuring serializaole execution witnin a fully 
connected system, 

cy inspecting tne glcoal precedence relation, tne 
Partition Concurrency Controller fines eitner transactions 
involved in cycles or those wnich are net. tor tnese 
transactions not part of a cycle, tne transaction is removed 
from tne relation and tne values of tne aata objects upcatea 
are forwarded to tne other partitions noloing that caca 
ooject so that these data objects can oe reconciled. when 
tne mec nanism detects a cycle it c nooses tne lowest cost 
transaction (possioly tne one naving tne fewest transactions 
dependent on it) and senos tne transaction to a re-executicn 
list, Tnis process continues untii there are no 
transactions left In tne relation. Lastly, tne re-exec ut ion 
list is emptied by processina the transactions present in 
the list. 
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4 . Partitions Create Long-Lived Transactions 

Consider now tne example oresented earlier in 
Chapter III, section b. Assume tnac after transaction id's 
subtransaction, sidi, arrives at site r, a partition occurs 
isolating site E ITi's Initiating site) from tne otner 
sites. Thus. ST31 is unable to return to its initiating 
site. It will, as oefore, execute on data onject f and 
create its temporary version tnere. it *iil also remain at 
Site f waiting for tne partition to merge. wn at nas seen 
created oy the partition is actually a type of lono-iived 
transaction, mis transaction win De automatically nanclea 
by the system because It creates a temporary version in tne 
same manner as do transactions wnlcn are not iong-iiveo. 
The fact that the temporary version created is procacly more 
persistent (it may exist for hours, aays or weexs ) tnan most 
other temporary versions does not introduce tne need for any 
special handling of sucn lona-iivea versions. 

A transaction wnicn is inDut into tne system ano 
wnich is long-lived due to tne transaction's very nature 
presents proolems in a partitioned environment. To nerge 
tne partitions it is necessary, as was mentioned aoove, to 
cease new transaction input ana to allow all presently 
executing transactions to complete execution, Tnis may not 
De feasiole for tne lona-livea transaction as it miqnt taxe 
weexs for it to complete its execution. This remains a 
problem which deserves further investigation. 
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V 



SIMULATION ANC TESTING MET HQDOLL’G t 



A. INTRODUCTION 

In order to test the proposea aaaptlve concurrency 
control algorithm and tc provide some meaningful 
measurements of its capaDi 1 ities , a simulation of tr.e 
mechanism was implemented. The simulation was programmed in 
DEC VaX- 11 PASCAu and executed on the DEC VAX il/7o0 running 
under V AX/ VMS , Source code for the simulation mcael ana 
output from example simulation runs are provided in 
Appendices B and C respectfully. 

The simulation was designed to facilitate a onasea 
approach for investigation cf the algorithm m the areas 
addressed in previous sections of our tnesis. ine first 
pnase, wnlcn is the target phase tor our implementation 
effort, is an initial test of tne casic algorithm's aoility 
to act as a local concurrency controller for eacn aata 
oo^ect ana as a site concurrency controller for one given 
site. Data structures and processing modules, designed anc 
programmed for tnis first pnase of simulation, were aesigneo 
in a manner which would insure their extensibility xn any 
future phase of investigation. 

Future investigation of the algorithm's capaoiiities 
would center on its application to tne partitioned network 
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environment. In this context, tne aigorltnm would not oruy 
act as a local and site concurrency control mechanism out 
also as a concurrency control mecnanism at partition e r g e 

time . 

Because we envision the integration or expansion of our 
simulation to other areas of interest in aistriouteu system 
software aeslgn, we elected to forego any type of 
prooaDilistlc modeling sucn as found in uaviason U5J. 
Instead, we opted tor a more pragmatic approac.o mvolvino 
standard data structures sucn as lin<ea lists, arrays ana 
records, Tne remainaer of tnis chapter elacorates on our 
design and testing scnemes. 

e. DATA STRUCTUKES 

1 . Transactions 

Transactions are implemented in the simulation 
aesign as a linked list structure pointed to by a gloeal 
variaDle CTRAhs.PTR) . Tne structure contains tnree entities 
of differing types: transactions, suctransactions ana atomic 
actions, Residing at tne nignest level In tne structure is 
the singly linked list of transactions. Eacn transaction is 
uniquely Known oy its identifier: UNIT-SITE, TKANS.Nim , 
Witnin each transaction record field are pointers ana rielas 
wnicn are used for structure navigation ana orocess 
accounting. For a given initiating site there can exist ud 
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to one nunared different transactions. E a c n transaction is 
active in the structure up to the point in tine wnen it is 
committed; at this juncture, tne transaction ana any or its 
pointers to lower level list are removed from the structure. 

Every transaction r.oae points to a singly nnxea 
list ot suctransactions eacn ot wnicn is laentitiea cy: 
UNIT-SITE , TRANS. NUM , ST-NUtf > , oubtr ansactions are tne oasic 
units for scenarios where tne EOkk and join ooerations are 
used, 'fne suotransaction noae proviaes tne neaa or tne list 
for its atomic action string, A transaction may own up to 
one hundred unique suctransactions , Altnougn 
subtransactions are not autonomous in tnemseives, they can 
oe considered the execution entity in our scheme as tneir 
atomic actions must be processed in linear oraer as tney 
appear in tne string. A given subtransaction, on the otner 
hand, may oe executed witnout regard to the ordering of 
subtransactions in a transaction. 

Atomic actions, contained in another smqiy l i n < e a 
list pointed to oy tneir subtransaction, constitute tne last 
and lowest level in tne transaction structure. identifiers 
for atomic actions contain four fields: 
UNIT. SITE, TRAaS.MUM, ST-NU*, AA»NijM> . Atomic actions contain 
all the Information tne execution process requires to 
simulate transaction execution in tne system. The A.w.KuD, 
DO-ID, and *ETKIC fields in tne atomic action orovlae tne 
necessary information to be aoie to access and execute at a 
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aata ooject , Unce all atomic actions nave execuiea for a 

given subtransaction ana all subtransactions nave executed 
for a transaction, tne transaction's activity is complete 
except for commit. Uf course tnis is assuminq no abort or 
rollbacx occurs, as previously notea, eacn atomic action 

string tor a subtransaction must execute in tne order in 
whicn they appear in the string. 

2 • Conflict Histories 

A conflict history, presented in cnapter 111 as: 

T 2 : {1213 : f : 4> 

is implemented as a pair of noaes in a linxed list. In tnis 
instance, tne first pair member would contain information 
about transaction T2's execution at aata od 3 ect f an a tne 
second pair memoer would contain I3's information, une or 
more pairs in a list 1 inxec oy the tirst pair memoer 
constitutes a conflict nistory. Tnese ccnriict .history 
pairs are transformed into precedence relations #nenever it 
is necessary to ma<e a determination regarding serial lzaole 
execution. Tne following entities nave pointer fields for 
conflict Histories: transactions, suotransactions , cata 

oojects, and temporary versions. At tne data ooject and 
temporary versions, conflict nistories are components of tne 
DO Log wnicn provides Information reoarcing serializable 
execution to tne local concurrency controller. 
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Gn the other nanci, conflict mstortes residing at 
the subtransaction and transaction are used to pass 
information from transaction to transaction anc also to a at a 
oojects visited for execution. In addition, tnese conflict 
histories at the subtransaction ana transaction are used to 
detect non-serializacie execution at tne site level, *nen a 
transaction is required to rolloacK part of its atomic 
action stream, conflict histories are ourueq at various 
places in the system in order to insure no "phantom" non- 
seriaiizable execution is detected. 

3 . Data Objects 

An array ( DO-ARRAY ) , containing one nundrea pointer 
slots, simulates database data oojects, when data Object l 
Is active at a site, OG-ARR AY [ 1 J points to a record wnich 
contains information cefininq that data oDject. ihe reccra 
also holds pointers tor the temporary versions, loc< oueue 
and conflict histories present at the data object. 
Iemporary versions can reside at a data object in quantities 
determined oy tne value of "n" coded into tne oata ooject in 
field n_cnT, For any one simulation run tne oata ocject 
parameter information is static. 

4 , Data Dictionary 

when an Initiating sice prepares to execute a 
subtransaction's atomic action it must oeciae wnere tne 
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target aata unmeet is resident. Tnis information resmes in 
an array ot pointers ( DIC-AKRAY ) . l>ic_ahkay Co] nolas cne 
initiating site's ovn site numuer so tnat no instance c: t n e 
simulation execution in a computer is cepe r. dent on site- 
specific code, l.e., if an initiating site neeas to Knew wno 
it is, it interrogates its instance ot C IC-ARRA i C o j . For 
any aata ocject 1, 0 iC_ARR A Y i 1 j contains a linKed list 
specifying at whicn site data ODject i is resicent. All tne 
information tor tURK, JUIN and rePiicatea cats is refiectea 
in tne data dictionary array. 

C. SIMULATION EXECUTION 

1 . Specifying tne lest Environment 

oefore simulation execution can Deqin, tne 
transaction, aata ooject ana aata dictionary structures must 
exist. Modules nave teen programmed to proviae tne 
structures to tne simulation from information input oy tne 
user. Tne provision of these structures is a three cnased 
operation. 

In phase one tne user specifies wnicn comoonents of 
each structure will oe active for a given simulation 
scenario and wnat information will reside in eacn structure. 
Rnase one is executed by tne processing of module &LL0P. 
Here tne user is prompted via menus to provide tne 
information wnicn will oe used to construct tne tr.ree 



54 



structures. Information contained in atomic actions, oata 
ODjects and tne oat a dictionary can oe specified. Jnce tms 
inrormation is input, it cannot oe c n a n g e c by tne user 
except by anotner execution of bLOuS, 

Pnase two ta<es the information provideo tnrougn tne 
use of BLDDS, whlcn has Deen stored on tnree tiles, ana 
constructs tne tnree pascal data structures. bLDTX ouiics 
tne transaction, suctransactlon ana atomic action structures 
using only tne data which was prcvidea in speclfing toe 
aescription of the atomic actions. Therefore, atomic 
actions must be entered in sorted oraer in Bi„dus, i.e,, 
(1 , 1 , 1 , 1 ) , ( ; 1 , 1 , i , 2 ) , 11,1,2,1), ( 1 , 2 , 1 , n , U , 2 , 1 , 2 ) , 
Cl, i, 1 , 1 } , etc. 

3 LDD 0 constructs the data object structure from tne 
information providea in oLDub; the aata ooject numoer ana 
tne value of "n" for that data object. A value of u for "n” 
is not al lowec by tne implementation cecause at tnat value 
tne aiyoritnm uses a two-pnase locxinq scneme ana we dia not 
nave time to program sucn a method into cur simulation. ror 
tne construction of aata oojects, any data ooject i , 
l<=i<=yy, wnicn was not recuestea oy tne user m BluuS, is 
indicated oy tne presence of a nil value at L>ij_ArtrtAY [ 1 j . 

The data dictionary structure is ouiit cy moauxe 
BLDDIC. Again, tne information provided in dLlDp is useo to 
oulld tne linked list off array dic-arkay. as was tne case 
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for the data objects, any data object i not in use is 
represented oy a NIL value at LIC-ARkA* Li ] . 

with tne execution of jLoDs, pldtx, pluDu, »LuDic 
tne simulation nas all the information it needs to cegin a 
run. One additional phase of structure SDecif ication allows 
the user to specify the addition cf temporary versions and 
conflict histories to tne three structures built aocve. 
This pnase was Included in tne simulation to Drovioe tne 
user with some degree of fiexioility in the testing of 
simulation modules and to allow tne user to influence tne 
simulation scenario in the areas dealing with lona-iiveo 
transactions. Modules SAVChTV and CUNCrilV execute in this 
phase , 

2 . Algorithm Simulation execution 

with the data structures built in the aforementioned 
routines, tne simulation is ready for execution, me 
following discussion is an explanation cf now transaction 
activity is simulated and how tne algorithm implementation 
performs its functions. 

Once control is passea to the main looo or tne 
simulation process (aLGO.TEST), a ranoom selection process 
taxes place wmch simulates concurrent processing of 
suotransactions on a database. At random, a transaction and 
one of its suotransactions is selected for a set amount of 
processing, we again note that atomic actions are selected 
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In the order in which they appear in a subtransaction. Tne 
amount of processing activity allotted to a seiectea atomic 
action is controlled Dy steps defined in a CASE statement 
within module EXECUIE. tor each random selection ot an 
atomic action, one step of the CASE statement is executed 
for tnat atomic action. The tourteen steps m execute 
delineate tne execution activity for ail atomic actions. 

within tne case statement is found the code w n 1 c h 
invokes the modules tnat implement the adaptive concurrency 
control algorithm as a local concurrency controller. These 
modules insure that the atomic action activity at a given 
data object is serializable. Local concurrency controller 
processes are called whenever an atomic action has 
conflicted with another in sucn a *ay as to indicate trie 
possibility of non-serial lzacle execution. Since Doth tr.e 
atomic action activity ana tne implementation of tne 
algorithm are programmed in the CASE statement, decisions as 
to when tne adaptive concurrency control mecnanism is to ce 
invoked are easily made. 

Conflict nistories constructed as a result ot atomic 
action execution within the CASE statement (in tXECUTE) are 
propagated to tne subtransaction and transaction structures 
in addition to being placed at tne data object. Tnis is 
done to simulate tne suotransaction 's "carryinq" of Its 
conflict histories during its travel through tne system. 
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Simulation ot tne site concurrency controller is me 
other main function performed in tne main loop. At eacn 
pass through the main loop of ALGU-TtST, one invocation of 
EXECUTE and GLOdAL-Sk is performea. GLObAb.or. simply 
inspects transactions at critical Junctions of tneir 
execution and determines whether or not ncn-ser ia l izaoxe 
execution has occurred. If it has, senailzacle execution 
is restoreo. Naturally, since tne local concurrency 
controller and tne global concurrency controller are cotn 
implementations of the same algorithm , they utilize the 
services of common subroutines, for instance, tne 
DETECT- GLGbAL-SH routine is invoxea when tne site controller 
is checking for non-seriaiizaole execution and wnen an 
atomic action times-out at a aata object and is piaceu in 
tne Iock queue. 

Tne main loop lnvoxes oXtCUTo and GDQB AL-on until 
all the transactions in tne structure nave committee. 
Simulation activity is reflected in the output report 
AUDIT, DAT. Since AUDXT.DAT is a sequential log of process 
activity from the beginning of simulation execution to tne 
commitment of tne last transaction, tne report can oe useo 
to audit simulation activity at critical stages of 
processing , 
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0. TESTING SCENARIOS 



A simulation run can be tailored to exercise the 
algorithm in various ways. An explanation ot tne parameters 
which influence an execution and the possible ertect a 
parameter can nave is tne goal ot this section. 

Through tne use of the BLDos module tne user can control 
both tne complexity of the transaction stream ana tne 
conflict rate at data objects. That is, if a laroe amount 
of atomic actions are Input whicn access a small numoer of 
data oojects, it follows tnat tne conflict rate will ce 
nign. Then aqain, if a small number of atomic actions are 
accessina a large quantity of aata oojects the contlict rate 
will be small and may well Qe virtually non-existent. An 
indication of tne amount ot synchronization over need 
required oy the adaptive concurrency control mechanism can 
be obtained Dy inspection of tne aucit report tor veryina 
conflict rates, 

BLDDS can also be usea to set tne "n" value tor aata 
oojects. This parameter, in conjunction witn the aeuay time 
factor, affects tne frequency ana quantity or atomic actions 
entering tne iocx queue. u£ course, tne "n" value also 
determines tne numoer ot temporary versions allowed to ouild 
up at a data ooject. A prompt to tne terminal oetore 
entering tne main loop allows the user to enter the delay 
time factor. The delay time is tne time allotted to an 
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atomic action before it times-out waiting for a snort 
duration locK. to be removed at a data object. 

Since selection of atomic actions is predicated on a 
ranaom numoer generator, different seeds to tne generator 
can provide different simulation results even if all otner 
test parameters are held constant. me seed is requested cy 
a prompt oefore entering tne main iooo execution. 

Tne presence of long-iivea transactions at a data object 
is simuiatea oy tne construction ana placement of a 
temporary version at tne target data ooject. Anotner promct 
at tne beginning of a simulation run allows tne user to 
input temporary versions and place tnem at tne desired aata 
ODjects, By varying tne mix of tne aforementioned 
parameters, a user can generate a wide variety or simulation 
scenarios . 

Gur initial tests of tne algoritnm involved tne input of 
successively more complex transaction scnemes. we oeoan 
with simple transactions which could not possibly conflict 
with each otner in order to insure tne validity ot our 
design. To test tne local concurrency control mechanism, we 
input transactions witn tne capaoliity of generating simple, 
two node cycles In a preceaence grapn, as we gained 
confidence in tne simulation, we tried transactions which 
were sure to conflict both at tne data object level ana at 
tne site level. These more complex transactions resultec in 
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cycles involving four or more nodes 
relation. 



in a precedence 
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VI 



TEST RESULIS 



Once tne simulation was operational, we were concerned 
witn two objectives. First, we enaevoured to insure 
ourselves that tne implementation ala m fact reflect tne 
proposed algoritnm in tne areas of local concurrency control 
and site concurrency control, Seconaly, .ve were inter es tea 
in tne analysis of simulation output in order to ce aple to 
ma«e some meaningful judgements on tne algorithm's oenavior 
and possibly its performance. Our testing met noaoloqy , 
designed to meet tnese two ocjectives, involved tne setting 
of various simulation parameters prior to a simulation run 
and tnen inspecting tne output audit listing for test 
results. Appendix C provides a sample output listing iron 
the AUDIT.DAT file created as a result of a simulation 
execution . 

Tne parameters wnicn we were aple to vary for any one 
simulation run are as follows. First, tne complexity of tne 
transaction input stream, l.e., tne quantity of atomic 
actions and tne atomic action execution activity at any one 
data ooject. Second, tne numoer of temporary versions 
allowed to build up at a given data ooject. This parameter 
Is varied by cnanging tne "n" value at a data ooject ("n" at 
a data ooject is static for a test run of tne simulation). 
Third, a varlaole time-out value for all data oDjects 
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provides tne final run parameter. snorter delay times 
insure that subtransactions win encounter snort term loc.<s 
at data oojects and, as a result, trigger tne aeadiocK 
detection mecnanlsm. 

A. TRANSACTION STREAM INPUT 

Througn tne use of small transaction streams wnich 
produced simple cycles, we assured ourselves tnat tne 
proposed algorithm performed as an optimistic concurrency 
controller at ootn tne data object ana tne initiating site 
levels. The simple cycles were detected, atomic actions 
were rolled oacfc and reexecutea ana serial lzaoxe execution 
was restored. 

After tnese simple tests we allowed more involved 
transaction streams in oroer to investigate tne algorithm's 
behavior in more deptn. we discovered at tni s stage of 
testing tnat our rolloacK ana reexecution scheme, following 
tne detection of non-serial izaoie execution, was not 
sophisticated enough to insure tne commitment of transaction 
streams wnich generated complex cycles. That is, after 
detecting a cycle, our strategy selects tne ieast costly 
conflict pair (based on the metric) wnicn will oreax tne 
cycle. It then rolls oacx both of these atomic actions ana 
inserts the atomic action wnicn nad executed last (in tne 
pair selected) into a reexecution list. The reexecution 
list is a queue whicn will always insure triat tne atomic 
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actions contained therein will execute in the oraer in •’/men 
they were entered, ana without any interveninq execution on 
the part of other atomic actions. Any otner atomic actions 
not contained in the cycle wnlcn must oe reexecuted as a 
result of an atomic action in trie cycle oeing rolled oac< 
are rolled back and reexecuted predicated on tneir selection 
Dy the random selection process. 

This strategy is tco simple in tnat it appears to ce 
necessary to also insure the serial execution of the otner 
transactions wnicn were involved in tne cycle *nen tne cycle 
Is complex; otherwise, tne simulation experiences continual 
rolloacK and reexecutlon of tne same atomic actions. 
However, we were aoie to run the simulation for a penoa of 
time in order to demonstrate tne non-serializacle execution 
detection capabilities of tne algorithm. *nen complex 
cycles resulted in continual rollDacK and reexecution, we 
aoorted tne run and relied on tne partial output for test 
analysis. 

In the following sections, we discuss our ooservations 
regarding the effect of various testing parameters Tc tne 
greatest extent possible, we neld an out one or tne 
simulation parameters constant for a series of simulation 
runs and opserved tne changes the one parameter produced in 
the output. In addition, we provide comments on our 
experiences with tne proliferation of conflict nisiories 
tnrougnout system data structures. 
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8. TIME-OUT PARAMETER 

Trie time-out parameter determines now long a transaction 
waits for tne completion of a transaction executing at a 
data oo j set before tne waiting atomic action enters tne ioc< 
queue, Tnis oarameter provea to be of great consequence 
during testing, When very snort delay times were usea, 
subtransact ions would be inserted into tne locx uueue at a 
fast rate. Once in the locK queue, tne aiaoritnm requires 
subtransactions to Dass conflict histories, wnich reflect 
the conflict conaitions at tne oata object, to tne 
transaction level. Transactions whlcn appear in tnese 
conflict histories then pass conflict histories among 
themselves. what is important in tnis scenario is that tne 
this sequence of events provides tne site concurrency 
controller witn a nigh conflict rate and as a result, a nign 
prooaollity of having to nanale fairly complex cycles 
lnvolvmq possiDiy many transactions. 

The ena result is a nign rollbacx rate wnlcn could 
easily involve all tne atomic actions wnicn have executea uo 
to that point. under these conditions, and because our 
simulation uses a simple rolloac* and reexecution strategy, 
the simulation process experiences a continual cycle of 
rollbacx and reexecutlon witn only a small cnance tnat 
transactions will De allowed to commit. From test 
observations it was evident tnat tnis situation gets worse 
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as more atomic actions are forced into tne loc< queue. 
Therefore, longer transaction input streams with many a tonic 
actions addressing a small numoer of data ocjects win 
continually undergo a repetition of rolloack ana reexecution 
without commits. 

C. THE "n" PARAMETEK 

Since the " n " parameter determines no* many temporary 
versions are allowed to reside at a data ooject, it also 
contrioutes to tne problems coserved wnen snort aelay times 
were usea. Tne rate at wnicn suotransactions enter tne lock 
queue is accelerated when tne "n” parameter is small it is 
obvious tnat tne t*o parameters "n" and tne aeiay time, 
togetner, affect tne rate at whicn a lock queue is filled. 
To Detter understand wnat effect "n" ana tne aelay factor 
nave on orocessinq, we tested witn a fairly long and complex 
transaction stream and varied "n" and tne delay. The 
results were very interesting. 

when "n" was set low (values on the order o t l or 2 ) 
witn a snort aelay time (values ot i,2,i), tne site 
controller was unable to find a sequence of roilcacxs ana 
reexecutions wnich would commit tne transactions. we 
ooserved longer cycles involving more transactions wnlcn 
necessitated the rollback, time and again, of all atomic 
actions, with a large "n" value and a long aelay time tne 
same transactions committea in a snort period of time. in 
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this case, inspection ot tne audit listing snored tnat tne 
local concurrency controller and the site concur rencv 
controller naa to contena with snorter cycles ana that rawer 
transactions were involved in the cycles. A long uelay time 
and "n" set high seems to result in a lower conflict rate 
tor tne local concurrency controller wnlcn makes it easier 
for tne algorithm to rind a serializable execution sequence. 
With a more sophisticated rollback ana reexecutlon strategy 
we feel tnat tne algorithm would oe a ole to contena with 
these nign conflict rates caused oy suctransactions enterlna 
the lock queue. or course, this can also oe controlled cy 
the proper selection of tne two parameters. 

wniie attempting to find a combination of small "n" ana 
snort delay times wnicn woula still commit tne transactions 
we observed longer ana longer execution times for tr.e 
simulation runs. Tnis is understandable since tne conflict 
rate and tne complexity of cycles drives tne roiioack and 
reexecutlon process. 

D, CONCURRENCY CONTROL OVEnhEAD 

It nas oeen argued tnat under optimistic concurrency 
control the overhead associated with nonconflictino 
transaction synchronization is low and tnat tnere is 
potentially hign overneaa for conflicting transactions and 
restoration of serializable execution, our observations on 



tne performance of the proposed algorimm near this argument 



out. tor noncontlictinq transactions tne only algorithm 
activity ocservea was tne construction ot temporary versions 
and tne commitment ot transactions, with conrlictina 
transactions tne algoritnm performed a great aeal of work in 
the areas of construction of conflict histories, detection 
of cycles, propagation of conflict histories, detection of 
non-serial izacle execution, ana tne restoration of 
serializable execution. 

Cf great concern to us during tne implementation and 
testing of tne algoritnm was the amount ot processing 
required to deal with tne conflict Histories. Conflict 
histories are prooagated to data structures in a nunoer of 
ways, when suotransacticns fork througn the system they 
deposit and collect conflict nistories at data objects. 
Transactions excnange conilict nistories muring ueacioc< 
detection ana during site concurrency controller activity. 
Tne housekeeping ot tnese conflict histories during tne 
rollback and commit processes prove to be quite expensive, 
tvery instance of a conflict history pair vnicn was created 
Dy tne execution of an atomic action naa to be track ec aown 
throughout tne system whenever the atomic action was roilea 
back. It was also necessary to purge tne system or conflict 
nistories related to a transaction wnen tnat transaction 
committed, without this purge process false information was 
Introduced into precedence relations which resulted in 
erroneous cycles oemg detected. This is understanaaoly an 
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untenaDle situation. Further invest laatlon into tms aspect 
of tne algorithm is necessary to reouce tne overhead 
introduced oy the propagation of tne conflict histories. 
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VII 



conclusions 



In tnis thesis we nave investigated three relates topics 
of current Interest in tne field of distributed computer 
systems software: optimistic concurrency control, 
partitioned networ<s, and long-lived transactions. 

a previously proposed optimistic concurrency control 
algoritnm was implemented end tested. Tne test results of 
the algorithm and our implementation of it nave oeen 
discussed acove tCnapter VI). we present nere our 
conclusions on tne teas ioil ley ana practicality of tne 
algorithm. 

Xhougn it is understood that any workaole "optimistic" 
concurrency controller needs to oertorm well during o e r i o a s 
of low /no conflict, it is still necessary for it to function 
in a reasonaDle manner If tne conflict rate is hiqn. it tne 
transaction stream wnlcn is input into our simulation is 
suen tnat the conflict rate is nign ana cycles of lenatn 
greater than tnree are present, then our implementation of 
the algoritnm often will not wor k , .mile this was discussed 
aoove in Chapter VI, we want to emphasize nere tnat tne 
problem appears to reside not in tne algoritnm itself, but 
In our implementation of It. i’nis needs to oe verified ana 
is Dut one of many places wnere turtner lnves tiaation is 
required, we do believe tnat tnis proolem is not 
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lnsurmountaole and tnat a more sophisticated auoroacn to 
selecting wnicn transaction to rollbacK and re-execute * hen 
creaking a cycle is a likely solution. 

Of greater concern, because it deals more closely *itn 
tne actual algor i tnm as opposed to our implementation, is 
the proDlem of eliminating conflict nistory pairs wnicn are 
no longer valid. That is, wnen a rollback occurs Cor a 
transaction commits) it is imperative to remove from tne 
system tne conflict pairs which reflect tne conflicts wnicn 
are no longer oresent. This is not trivial to accomplish 
without a lot of wasted effort because tne nairs to oe 
removed may nave peen propagated extensively to ocner 
transactions , data oojects, ana temporary versions. in our 
simulation, wnicn is of a small system witn few aata 
objects, it was possiDle to simply loo< everyvnere for tne 
conflict pairs wnicn needed to oe purged. This would, 
however, not be feasible in a real system. «a none tnat 
further investigation of this problem would reveal a met nod 
for seeping track of where tne conflict histories are 
propagated, thus enaDlmg a mucn more efricient scneme for 
purging tnem. 

Next, we considered how tne concurrency control 
aiaoritnm would handle a specific class of transactions, 
called "lonq-iived" , which presents systems witn some uniaue 
proolems, it appears tnat our algorithm may oe aole to deal 
witn long-lived transactions because tne temporary version 
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mecnanlsm causes long-lived transactions to ce 
indistinguisnaole from otner transactions, rne aidoritnn 
can also present a more realistic view to tne user as to tne 
status (wnether or not it is committed/permanent ) ot any 
long-lived transactions which might nave been input. 

The third topic which was invest igatea was tna t of 
partitioned networxs within a aistriDUted oataoase system. 
Our algorithm also seems to be naturally extensioie to the 
partitioned environment since tne mecnanisms required for 
detecting and resolving cycles ana nonserial izability are 
already present. Tnus, extension ot tne alqontnm to enable 
it to nanale a partition merge snould oe rairly 
straigntforward. Inis is certainly yet another area where 
further wor k could be accomplished - tne actual 
Implementation of the extenaea aiaorithm to enaoie its 
operation in partitioned systems. Additionally, tnere is a 
need for further research Into the problem of how to oeai 
with long-lived transactions wnich are ore sent in a system 
which oecomes partitioned. 
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APPENDIX A 



THE PROPOSED ALGORITHM 

The three pnases of the proposed adaptive ontimistic 
concurrency control algorithm are oescrioea below, Tne 
first phase addresses the execution of transactions at a 
data object, Detection of ncn-seriaiizaole execution is tne 
ODjective of tne secona phase ana tne tmra phase ueals w i cn 
tne commitment or transactions. 



Execution Fnase: 



while (more suotransactions in tnis transactionj DU 
FOR each suctransaction DO or Du CONCURRENTLY 

while (more atomic actions in this suotransaction) Du 
cnecx for locx on aata ooject to oe accessed 
IF locx rnEN 

WAIT FOR riME-OLT 
END IF 

IF no lOCX THEM 
acquire locx 
read/update data ooject 
inspect ao log for conflict 
IF conflict ThEm 

construct precedence relation from ao log 
set s equal to number of temporary 
versions in the ao log witn which 
current transaction is in conflict 
IF non-sr execution Tnt> restore sr execution 
send message teiiing conflicting 
transaction to roil oacx to site 
of non-sr execution and restore 
serializaole execution In most 
economical manner 
update conflict history 
IF read/update based on temporary 
version Thun 

marx new version as t ( w ) 
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ELSE 

mark ne* version as t(r) 

END IF 
ELSE 

u?ca te conflict nl story 
mark new version as t(w) 

END IF 
ELSE 

s = 0 

mark new version as tcrJ 
END IF 

pusn entry onto do log 
IF s < n THEN 
release lock 
END IF 
ELSE 

enter lock queue 

send message to own initiating site giving 
conflict history ana location 
enter detect non-sr detection pnase 

(if n = o consider all locks ana all 
enqueued locks as a part of transaction 
conflict nistoryj 
wait for lock to oe released 
END IF 
END wnlLE 
END FOR 

IF concurrent subtransaction then 
merge conflict nistories 
END IF 
END WHILE 



Detect Non-SP Execution Phase: 

IF conflict history empty THEN 

IF receive conflict nistories Then 

send message to initiating site of conflicting 
transaction saying ' trans committed'’ 

END IF 

enter commit pnase 
ELSE 

FOR eacn transaction in conflict nistory do 

send copy of conflict nistory to initiating site of 
eacn transaction 
END FOR 

FOR each conflict nlstory/oreceaence relation recsivea do 
construct precedence relation 

IF precedence relation snows non-sr execution then 
restore serializacie execution 

IF transactions still executing then 
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select least costly transaction oair r r o n 
among transactions that are still execucin 

ELSE 

select least costly transaction pair 
END IF 

transactions in selected transaction oair roil 
bac< to site of conflict ana execute in 
opposite order 
update conflict history 

IF read/update based on temporary version THEN 
marK new' version as tCw) 

ELSE 

m a r k new version as t(r) 

END IF 
ELSE 

send precedence relation to initiating site or 
transaction adaea to oreceaence relation 

END IF 
END FOR 

IF receive 'trans committed' message THEN 

pass tnis message to initiating sits from wnicn 
received most recent precedence relation 

END IF 

IF transaction completea TH&n 
enter commit pnase 
ELSE 

continue w 1 1 n execution pnase 
END IF 
END IF 



Commit Pnase: 

IF all temporary versions are t ( r ) THEN 

send commit message to all sites at wnicn 
transaction executed 

ELSE 

FOR each t(w) version do 

I r t ( w) site reoorts 'abort' THEN 
roll DacK to site of abort 
re-execute remainder of sub transact ion 
enter detect ncn-sr execution pnase 
ELSE 

IF all t(w) versions report 'ready to commit' Then 
send commit message to ail sites at which, 
transaction executed 

END IF 
END IF 
END FOR 
END IF 
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Note tnat the "commit message" not only changes toe 
status of the Du Log to committed, out it also removes ior.g 
duration iccxs. 
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AFPtNUlX b 



SIMULATION SCUHC£ CuQl 




(* type declarations tor simulation mooules *) 
f* contained in file "strtype.pas" *) 






l* pointer types *) 



: * t * * =¥ 



otr-cn.pair = A cn.pair.rect; 
ptr-trans = A trans-rect ; 
ptr-3trans = A strans-rect; 
ptr-dic = A dic-rect; 
ptr_aa = “aa.rect; 
ptr-tv = A tv.rect; 
ptr.locx-q = A locK.q.rect ; 
ptr-do-perm = A do.perfT>.rect ; 
ptr-cn = “cn.rect; 
otr-reexec = A re.exec.rect ; 




C* record types 



re-exec. rect - record 
init-site : cnar; 
trans.num ; integer; 
s c.nurr : ' integer ; 

aa-num ; integer; 

do-id : integer; 

nxt ; ptr.reexec; 

end ; 
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do.perm.rect = record 
cn.ptr : ptr.cn; 
tv.ptr ; pcr.tv; 
locK.a.ptr : ptr.lock.q; 
no.reads : integer; 
no. writes ; integer; 
lock ; oooiean; 
n.cnt : integer; 
s.cnt ; integer; 
locx.qty ; integer; 
cn.seq ; integer; 
end; 



tv.rect = record 

tv. cn.ptr ; ptr.cn; 
aa.ia ; record 

trans-site ; record 
init.site ; cnar; 
trans.num ; integer 
end; 

st.num ; integer; 
aa.num : integer; 
r.w.f lg ' ; cnar ; 
qo-ia : integer; 
cn.seq : integer; 
metric : Integer; 
end ; 

metric-sum ; integer; 
nxt : ptr.tv; 
stat-fld ; char; 
end; 



aa.rect = record 
aa.id : record 

trans-site : record 
init.site ; char; 
trans.num ; integer 
ena; 

st.num ; integer; 
aa.num ; integer; 
r-w.fig': cnar; 
do. id : integer; 
cn.seq ; integer; 
metric ; integer; 
end ; 

stat : cnar; 
time.val ; integer; 



step.num : integer; 
have-locK : ooolean; 
in.locKq.f lg ; boolean; 
nxt s ptr.aa; 
end; 



strans.rect = record 
aa-ptr : ctr.aa; 
st. ia : integer; 
aa-qty ; integer; 
aa.tr.qty ; integer; 
aa.fin.qty : integer; 
exec-flg : ooolean; 
forx-fly : ooolean; 
st-cn-ptr : ptr-cn; 
rcetric-sum : integer; 
nxt ; ptr.strar.s 
end ; 



trans.rect = record 

st.ptr : ptr.strans; 
st-qty ; integer; 
exec-flg : boolean; 
st-tr.qty integer; 
st-fin-qty': integer; 
trans-site ; recora 
init-site ; cnar ; 
trans.num ; integer; 
end ; 

nxt : ptr-trans; 
trans.ch-ptr ; ptr-cn; 
end; 



ch-rect = record 
nxt : otr-cn; 
pair-ptr ; ptr-cn-pair; 
aa-id ; recora 

trans-site ; record 
init-site ; cnar; 
trans-num ; Integer 



end; 

st.num ; integer; 
aa.nuro : integer; 
r-w-flg': cnar; 
do-ia ; Integer; 



cn.seq : integer? 
metric : integer? 
end; 
end? 



ch.pair.rect = record 
metric. sum : integer; 
aa.id ; record 

trans.site : record 
inlt.site : cnar; 
trans.num : integer 
end; 

st.num ; integer; 
aa.num ; integer; 
r-x-flg ; cnar; 
do. id s integer? 
cn.seq : integer; 
metric : integer; 
end ; 
ena ? 



locK.q.rect = record 
nxt ; otr.locx.q; 
locx.ch.ptr : ptr.cn? 
aa.ia : record 

trans.si te ; record 
init-site ; cnar? 
trans.num ; integer 
end ; 

st.num ; integer; 
aa.nurn ; integer? 
r.x.flg : cnar; 
oo. la : integer; 
cn.seq ; integer; 
metric ; integer ; 
end ? 
end? 



dic.rect = record 
nxt : ptr.dlc; 
site-id ; cnar? 
end; 



(* array types *) 



) 



data. oo;). array = array C 1 .. of ptr.ao.perro ; 
data. die. array = array CO . , 9^ ] or ptr.aic; 




C* variable declarations for simulation modules *) 
(* contained in tile "strvar.pas" *) 



; ******* *) 



C* pointer variables *) 



■.*****) 



trans.ptr : ptr.trans; 
reexec.ptr s ptr.reexec; 






(* array variables *) 



do.array ; data.oD j. array ; 
die. array : data.aic.array ; 



* 



(* record variables * ) 



re.exec.rec : re.exec.rect ; 
tv.rec : tv.rect; 
aa.rec : aa.rect; 
strans.rec : strans.rect; 
trans.rec : trans.rect? 
ch.rec : cn.rect; 
cn.pair.rec : cn.pair.rect; 
locK.q.rec : iocK-a.rect; 
dic.rec : aic-rect; 
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(* file declarations * ) 



* * ) 



trans : file of aa.rect; 

audit, data, aatadic, dooj, runfixe : text; 







PROGRAM oldds (i n put, output, trans,aataaic, a ooj); 

C* this cuilds tne data structures for alco_test *j 
TYPE 

%I NCLUDE 'strtype.pas /nolist' 

VAR 

% INCLUDE 'strvar.pas /nolist' 

cn : cnar; 

ans,a .‘integer; 

correct , stoprun : boolean; 



PROCEDURE read-integer (VAR num ;inteaerj; 

( * This reaas an integer from tne terminal in cnar format 
and edits it for type. It loops error rasgs until a legal 
integer is input. *) 

CONST 

goodset = I ' 0 ' . . ' y ' ] ; 
maxlntdig = lu; 



VAR 

line ; array li.,dOj of cnar; 
index, lengtn : integer; 
good. answer i'pooiean; 

BEGIN 

gooc. answer := false; 

WHILE not good-answer DC 
BEGIN 

index := l; 



e2 



READ(line(. index.)); 

whILE not C line (, index. ) = ' ') ana not eoin 
and (index < nr.axlntdig) DO 
BEGIN 

index := index + 1 ; 

RtAD (line ( .index . ) ) 
end; 
readln; 

lengtn := index; 
good. answer := 

(index > l) or not (iineC , lnGex. ) = ' '); 

FOR inoex := i TO lengtn DO 
good. answer := 

good-answer and (linet. index. ) in qooaset); 
IF not good-answer THEN 
ELGIN 

FOR index := l ro lengtn l>Q 
WRirfc(line( .index. ) ) ; 
w'RITELN ( 'is not an integer'); 

WRITELN ( 'please input again') 

END 

END ; (*wniie*) 

num ;= 0; 

FOR index ;= l 10 lengtn DC 

num := nu.m * ID ♦ Cord ( line (. index ,)) -ora (' 0 ') ) 

END; (*proc*) 



;***##**********¥***) 

: * * * ) 



procedure write-query (VAR ans ; inteaerj; 

BEGIN (*wq*) 

wRITELN ( 'tnis proc builds new files for testacc'); 
wRITELn ( ' wnat do you want to cnange?'); 
wR l xeln ; 

wRIX£LN('l ; atomic action tile'); 
wRIX£Ln(' 2 : data dictionary'); 
wR I X ELN ( ' 3 ; data oc)ect file'); 
wRITELN('4 : notnlng'); 
w R * i u< L N ; 

wRIXE ( ' r es pona witn single aigit===>'); 
read-integer (ans) ; 

END; ( •* w q * ) 



PROCEDURE cnecx-stop (VAR stoprun ; Doolean; 

cn : cr.ar); 
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BEGIN c *cnecK.stop* j 

It not Ccn in C 'y 'n ', 'N ' J ) T H t n 
cn := ' z ' ; 
case ch of 

'n','N* : stoprun :=true; 

'y','¥' : stoprun := false; 

'z' ; wRITELn ( ' error try again'); 

END; (*case*) 

END ; ( ^check-stop* ) 



PROCEDURE const. trans; 

C* this proc puilds tne trans file disk trow interactive 
input *) 



VAR 

stoprun, correct : coolean; 
templ.aa , temp2.aa : aa.rect; 
in.int : integer; 
outch , in.char , cn : cnar; 

BEGIN C*ctl*) 

stoprun ; = false ; 

wITH tempi. aa.aa. id. trans-site uG 
BEGIN (*wicnO 

init.site ;= 'O'; 
trans-num := 0; 

END; (*witn*) 

WITH tempi. aa . aa. Id DO 
BEGIN 

st.num := 0; 
aa.num ; - 0; 
r-w.f lg‘ := ' '; 
do. id := o? 
cn.seq ;= o; 
metric := 0; 

END ; c *wi tn* ) 
wllH tempi. aa DO 
BEGIN 

stat :='x'; 
time.val : = -l; 
step.num ;= o; 
have.locx ;= raise; 
in.lockq.tlg := false; 
nxt := nil; 

END; (*with») 
temp2.aa := tempi. aa; 
REwRlTECtrans) ; 
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REPEAT (*untll stoprun = true*) 

WRITELN ( 'you are entering an atomic action'); 
w R I T E L n ; 

wRIT£LN('tne last aa you entered was'); 
writeln; 

wlTh tempi. aa . aa.id . trans-si te DO 
WRITE ( init.s ite ; 3 , tr ans-num :3); 
with tempi. aa,aa-ld DO 

wRITEtst.num :3,aa-num :3,do_id :3, metric :i); 
WRITELN ( tempi. aa. time-val ;3); 
writeln ( ' enter the new init-site integer'); 

READLN (cn) ; 

WHILE not (cn in l '0 ' , ' 1 ' , '2 ' , ' 3 ' , ' 4 ' , ' 5 ' , 

'6', '7', '8', '9']) DO 

BEGIN 

writeln ( ' error try again'); 

KEADLN(cn) 

END; 

with temp2-aa.aa-id.trans.site DO 
BEGIN 

init-site :» ch; 

(♦converts init site to char for file*) 

WRITELN ( 'enter tne new trahs nurooer integer'); 
read.integer(trans.num); 

END? ■(♦with*) 
with temp2-aa . aa.id CO 
BEGIN 

WRITELN ( 'enter new subtrans numcer integer'); 
read.integer(st.num) ? 

whITELN ( ' enter new atomic action num integer') 
read-integer (aa-num) ; 

wRITELN ( 'enter new data object num integer'); 
read-integer(dc-id); 

WRITELN ( 'enter new metric integer'); 
read-integer (metric) ; 

writeln (' enter r for reaa or w for write'); 
PEADLN ( cn ) ; 

WHILE not (cn in l'r','w']) do 
BEGIN 

writeln ( ' error try again'); 
keaOLn ( cn) 

End; 

r-w-flg : = cn; 
cn-seq : = o; 

END; (*witn*) 
with temp2_aa DO 
BEGIN 

time-val : = -1; 
outcn := 'x'; 
stat := 'x'; 
step-num ;= o; 
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nave.locK := false; 
ln-locicq.f Ig ; = false; 
nxt := nil; 

END; (**itn*) 
mII£( trans , tetr.p2.aa ) ; 
tempi. aa := temp2-aa; 

*RITELN('enter y or n If you *an t to enter another aa ' ) 
K£ADLN(cn); 

cneck-stop(stoprun,ch); 

UNTIE stoprun; 

(*tne last aa on tne file is a trans. num 999 record*) 
tempi.aa . aa.ia . trans-site . trans-num := 999; 

-vRITECtrans, temp2-aa ) ; 

END; (*ctl*) 



: * * ) 



PROCEDURE const-aata. die? 

C* this proc Duilds tne data dictionary aisx file from 
interactive input * ) 



VAR 

stoprun , stopsite : boolean; 
cased, curd : ctr.dic; 
cn,init-3lte ; cnar; 
aonum,in.mt : integer; 
aic : text; 

BEGIN (*!*) 

REWRITE (datadlc) ; 
stoprun : = false ; 
aonum := 1; 

wRITELN ( 'enter tms sites number-integer'); 
r laden ( ini t. site); 

*RIT£LtUdatadic,init-site); 
repeat '(*until stoprun = true*) 
stopsite : = false ; 

REPEAT ( *unti I stopsite = true*) 

akITELN C 'note : enter a 9 if aata item not usea', 
■' at all'); 

ARITELNC'enter a site tor data item aonum : 2); 
READLN(init-site); 

WKlTELN(dataalc,init.site); 

It mit^site <> '9' Then 
BEGIN ( *7 * ) 

WKITELN( 'another site for data item ', 
’donum ; 2,'V'); 
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*kITELN( 'answer y or n'); 

READLN(cn) ; 

check.stop(stopsite,cn) ; 

END C*7*) 

ELSE 

stopsite := true? 
until stopsite; 
donum := aonum +1? 

*RI TtLN(aataaic, 'x ' ) ; 

w R I T E L n C 'continue witn data item aonum : 2 ,'?'), 
WAITELN ( 'answer y or n'); 

READLN(cn) ; 

cneck.stoptstoprun,cn); 

UNTIL stoprun; 

END? 



;********) 



PROCEDURE const. do; 

(♦ this ouilds tne data object tile from interactive 
input *) 



VAR 

1, In.int rinteger; 
stoprun : boolean; 
cn ; cnar; 

BEGIN (*1*) 
i := l? 

stoprun := talse; 

REWRITE (dooj); 

repeat (*until stoprun = true*) 

wRITELNC'enter tne n value for data object ' , i : 2 ) ; 
read.inteqer i in.int ) ; 
wRITELN C oodJ , in.int ) ; 

aRITELN C ' answer y or n if more do.s to enter'); 
RtADLN(cn) ; 

cneck.stopCstoprun,ch) ; 
i ;= i + 1? 

UNTIL stoprun? 

END? (*!*) 



(* main tor program clads *) 
BEGIN (*1*) 

REPEAT ( *unti 1 stoprun*) 
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false; 



correct : 
a : = 1 ; 

WHILE correct = false DO 
BEGIN (*2*J 

write. query Cans ) ; 

IF Cans in (1,2,3,43 ) THEN 
correct := true; 

END; C*2*) 
case ans of 

1 : BEGIN 

const.trans ; 
trans.ptr := nil; 
end; 

2 ; const.aata.aic ; 

3 ; const. ao; 

4 ; a ; = a ♦ l ; 

END; C »case*) 

wRITELN ( 'more changes? answer y or n'); 
READLHCcn) ; 

cnecK.stoD(stoprun,ch); 

UNTIL s toprun; 

END, c*l*) 




[INHERIT C'syssilDrary:starlet'),ENViRUNi v iENf ('builds, pen ' j 3 



MODULE B ( input , output , audi t , data , runf l le , trans , aataaic , 
doo j ) ; 

C* this moaule creates the glODai procedures *3 
TYPE 

%INCLUDE 'strtyoe,?as /nolist' 

VAR 

% INCLUDE 'strvar.pas /nolist' 



[GLOBAL] 

PROCEDURE bldtx; 

C* this proc DUilds tne trans structure from tne record file 
trans.dat *) 



b S 



VAR 

baset,curt : ptr-trans? 
curst, basest : ptr-strans? 
curaa,oaseaa : ptr-aa; 
tempaa , tempaa^ ; aa-rect; 



•**) 



PROCEDURE aaat (curt : ptr-trans; 

tempaa : aa_rect); 

(* fill one trans record *itn aata *) 

BEGIN c*aadt*) 

curt*.st-qty := 0? 
curt" .exec-f lg := false; 
curt* . st-tr-qty := o; 
curt*.st-fin«qty ;= 0; 
curt* . trans-cn-ptr := nil; 
curt*. trans-site. init- site : = 

tempaa. aa- id. trans-sice, init-site; 
curt* . trans-s lte . trans-num := 

tempaa .aa-i a, t ran s -si te . trans-num; 
curt*.nxt := nil? 

END? (*adat*) 



+ **) 



PROCEDURE aaast (curst : ptr-strans? 

tempaa : aa-r ect ) ? 

(* fill one suotrans record witn aata *) 
BEGIN (*aaast*) 

curst*. st-id := tempaa. aa-id . s t-num ? 

curst* .aa-qty' := o? 

curst* . aa-tr-qty := o? 

curst* .aa-fin-qty ‘ := o? 

curst*. exec- fig ;= false; 

curst*. f or K-f lg ;= false; 

curst* . s t-cn-ptr ; = ml; 

curst*. nxt := nil? 

END? (*addst* j 



PROCEDURE adcaa (curaa ; ptr-aa; 

'tempaa ; aa-rect); 

(* fill one atomic action recoro *itn data *) 
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BEGIN ( *addaa* ) 

curaa* . aa-io := tempaa . aa-ia ; 
curaa*. stat := tempaa, stat; 
curaa*,time-val := tempaa.time-vai; 
curaa* . stap«num : = 0; 
curaa* . nave_lock := false; 
curaa* . ln-locxq-fig ; = false ; 
curaa*. nxt := nil; 

END; (*addaa*) 



* 



) 



(*main loop for bldtx*) 

BEGIN C*l*) 

READ(trans, tempaa); 
tempaa2 ; = tempaa; 
ne* (curt ) ; 
traris.ptr :=curt; 
paset ;= curt; 
addt(curt, tempaa); 

Nt* (curst ) ; 
oasest ;= curst; 
addstCcurst, tempaa); 
curt*.st_aty := curt* , st.qty + 1 ; 

NEa(curaa) ; 

oaseaa ;= curaa; 

acdaa(curaa,tempaa); 

curst* , aa.qty := cur st* , aa-qty + 1; 

trans-ptr * . st„ptr := curst; 

curst* ,aa-ptr := curaa; 

READ(trans,tempaaj ; 

«hILE not eof ctrans) DG 
BEGIN ( *2* j 

IF tempaa, aa_id. trans-site. trans-num <> 999 Then 
BEGIN C*3*) 

IF temoaa , aa-ld . trans-si te, trans-num <> 
tempaa2.aa-id.trans -site, trans-num TntN 
BEGIN (M*) 

NErt(curt); 

addt (curt , tempaa ) ; 

baset*.nxt := curt; 

ne* ( curst ) ; 

aao st (curst, tempaa); 

curt* . st-qty := curt*,st_qty + l; 

curt*.st-ptr : = curst; 

N£* (curaa) ; 

addaa(curaa, tempaa); 

curst*. aa-qty := curst* , aa.qty + l; 

curst*. aa-ptr ;= curaa; 

oaset ;= curt; 

oasest := curst ; 
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baseaa := curaa; 
tempaa2 := ternpaa; 

RtAD(trans,tempaa; ; 

END? ( * 4* ) 

Ir C ternpaa . aa.id . trans_s i te . trans_num = 
tempaa2,aa_ia.trans_site, trans.num ; ana 
( ternpaa . aa-iu , st-num <> 
tempaa2 . aa_ia . st-num; then 
BEGIN' (*5*) 

Nt,*( curst ) ; 

a a dstCcurst, ternpaa); 

curt*.st_qty ;= curt*. st.qty + l; 

casest*,nxt := curst; 

n £ * ( c u r a a ; ; 

addaa(curaa,tempaa;? 

curst" .aa.qty : = cur st" . aa_qty + i; 

cur st" . aa.ptr := curaa; 

basest : = curst; 

oaseaa ;= curaa; 

tempaa2 : = ternpaa; 

Rt'Auttrans, ternpaa;? 

END? c*5*) 

It (tempaa.aa-la.trans„site.trans_num = 
tempaa2.aa_ia.trans_site.trans._num; ana 
C ternpaa , aa_ia . st_num = 
tempaai . aa.ia . st_num ) THEN 
BEGIN ( * 6 * ) 
nla ( curaa ; ; 
aaaaa (.curaa, teTipaa); 
cur s t" . aa_cty ;= curst* .aa.qty + 1 ; 
baseaa*. nxt := curaa; 
o a s e a a : = curaa; 
tempaa2 : = teriicaa; 

REAOitrans, ternpaa; ; 

END ( *6* ) 

END (*3*) 

END (*2*) 

END; (*!*) 



[GLOBAL] 

PROCEDURE blddlc; 

C* tnis proc builds tne aata dictionary structure 
from tne text file datable*; 



VAR 

based, curd ; ptr-dic; 
1 ; Integer; 
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cn 



cnar ; 






PROCEDURE addd (curd : Ptr.dic; 

cn : cnar}; 

( * tnis proc fills one data die linx node wi tn data* } 

BEGIN (*al*) 

curd* , site.ic := cn; 
euro* ,nxt ; - nil ; 
end; (*al*) 



.if************ ) 



(* oegin main program biadic *J 
BEGIN (*!*) 

fur i ;= o to 99 do 
dic-array [i] ' : = nil; 
n E w ( dic-array [OJ ) ; 
dic-array £ 0 j *.nxt ;= nil; 
READLN(datadic,dic-array[C]*. site-id); 
i : = i; 

WHILE not eof(dataaic) DO 
BEGIN (*la*) 

IF not eot(aatadic) THEN 
RLADLN(dataaic,cn); 

IF cn <> '9' THEN 
BEGIN ( * 1 c* ) 

N ewtdic. array (iJ ); 

Dased ; = dic-array ( l J ; 
curd ;= dic-array[ij; 
aadd (curd , ch } ; 
end; (*1d*3 

WHILE (cn <> 'x') and (not eor ( datadic ) } uU 
BEGIN (*2*) 

If not eof(dataoic) InE.N 
REaDL ;m (datadic, cn}; 
if (cn = '9 ' j Then 

BEGIN (*2.b*) 

dlc-arrayiij ;= nil; 
READLN(catadic,ch); 

END (*2.5*) 

ELSE 

IF (cn <> 'x') THEN 
BEGIN (*J*) 

NEW (curd ) ; 
addd ( curd , ch ) ; 
based*. nxt ;= curd; 
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cased := cura: 
£N0; (*i+] 

end; (*2*J 
i ; = l + l ; 
end; (*ia*) 

END; (*l*) 






[GLOBAL] 

PROCEDURE add. n. and. t (VAR cur-cn-ptr ; ptr.ch); 

(* tnls procedure adds a deader ana trailer to tne inout 
conflict nlstory list *} 



VAR 

out.cn.ptr, tvlptr ; ptr.cn; 
pout.cn.ptr : ptr.cn.pair; 

BEGIN 

(* ouild neader *) 
new ( out.cn.ptr ) ; 

out.cn.ptr *. aa.id , trans.s i te . ini t-s ite ;= 
out.cn.ptr * .aa.id, trans.s ite . trans.num := -l; 
out.cn.ptr*. aa. la, st.num : = 0; 
out.cn.ptr* .aa.id, aa-num ;= 0; 
out.cn.ptr* .aa.ic, r.w.fig ;= 'z'; 
out.cn.ptr * .aa.ia . ao.id : = u ; 
out.cn.ptr* .aa.id, ch-seq : = 0; 
out.cn.ptr* .aa.ia, metric ;= 0; 

(* ouild header pair *) 
wE* (pout.cn.otr ] ; 

out.cn.ptr *. nair.ptr ;= pcut.ch.ptr; 
pout-cn-ptr*.aa-ia.trans.site,init.site := ' 
pout. cn.ptr*. aa.id. trans-site. trans-num ;= -1; 
pout.cn.ptr* . aa.id . st.num := o; 
pout.cn.ptr* . aa.ia. aa.num := o; 
pout.cn.ptr* . aa.id. r-w-f lg := 'z'; 
pout.cn.ptr* . aa.ic . do. ia ;=’0; 
pout.cn.ptr*.aa.ia,cn_sea ;= u; 
cout-cn.ptr* .aa.id. metric ;= o; 
pout.cn.ptr* . metric-sum ;= o; 

(* add the neader *) 
out.cn.ptr* .nxt : = cur.ch.ptr; 
cur.cn. ptr’ : = out.cn.ptr; 

(* ouild trailer *) 
new ( out.cn.ptr ] ; 
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out-cn.ptr * .aa.id.trans.site.inlt.slte := ' a ' ; 

out.cn.ptr*.aa.id,trans.site.trans.hum := 9999; 

out-cn.ptr*. aa. id. st-num := 0; 

out-cn.ptr* , aa-id.aa-nuir. : = 0; 

out-cn.ptr *. aa. id , r-w.flq := 'z'; 

out-ch-?tr* , aa. id, do-id := o; 

out-cn.ptr* , aa. id . ch-seq := 0; 

out-cn.ptr* , aa.ld, metric := 0; 

out-cn.ptr* . nxt := nil; 

( * ouila trailer pair *} 
ne* ( pout.cn.ptr ) ; 

out-cn.ptr* . Dair.ptr := pout.cn.ptr ; 

pout.cn.ptr* .aa.ld. trans. site. init. site ;= 'A'; 

pout.ch.ptr * . aa-id.trans.site.trans-num ;= 99 99; 

pout.cn.ptr* . aa.ia , st.num := o; 

pout.cn.ptr" . aa.id . aa.num ;= 0; 

pout.cn.ptr* .aa.ia, r.w.flq ; - 'z ' ; 

pout-cn.ptr* . aa.ia . oo.id : = - u; 

pout.ch.ptr *, aa. id . cn.seq := o; 

pout. ch-ptr * . aa. la. metric := u; 

pout.cn.ptr* . metric. sum := u; 

(* ada tne trailer *) 
tviptr ;= cur.cn.ptr; 
while tviptr*. nxt <> nil DG 
tviptr ;= tviptr*. nxt; 
tviptr*. nxt := out.ch.ptr; 



END; 



) 



[GLOBAL! 

PROCEDURE blado; 

(* tnis ou lies tne data ooject structure from tne integer 
file dopj.dat *) 



VAR 

i ; integer; 



BEGIN (*1*) 

FOR X := 1 to 99 UO 
do-array Li! : = nil; 
i : = 1; 

aHIlE not eofidooj) DO 
BEGIN (*2*) 

NEW Cdo.array li J ! ; 

READLNLdoP] , do-array UJ * .n.cnt) ; 
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C ♦add a header ana trailer record to a.o, cn*) 
do-array (i) A , cn.pt r := nil; 
add.n.and.t' (do.array llj A .cn.ptr) ; 

( *f ill d.o. perm rec fields * ) 
do.arrayd) A . tv. per := nil;' 
do.arrayd) A .ioc<-q.ptr ;= nil; 
do.array Ci) A . no. reads ;= u; 
do.array d) A , no. writes ; = 0; 
do.array d) A . lock false; 
do.array d) A . s-ent := 0 ; 
do.array d ) A . locx.qty ; = -l; 
do.array Cl) A . cn.seq ;= o; 
i : = l + 1 ; ' 

END; (*2*) 

END; (*!*) 




(GLOBAL) 

PROCEDURE enter. tine. delay (VAn time-delay ; integer;; 

C * this procedure requests as input an inteyer to act as a 
delay value *) 

BEGIN 

wRITELn; 

wRITSLN ('Enter an integer tor a time-delay constant :'); 

READLn ( time. delay ) ; 

time. aelay ;= ABS (time. delay) ; 

WRITELN ; 

vRITELn ('Ihe time-delay constant is', time. delay); 

END; 



) 

) 



(GLOBAL) 

PROCEDURE enter. random. seed (VAR seed : unsigned); 

(* tnis procedure requests as input an Integer to oe usea as 
the seed tor a random numoer generator *) 

BEGIN 

*KITSLN ; 

WRITELN ('Enter an integer to act as a seed for tne', 

' random number generator :'); 

READLN (seed); 

*RITELN; 

writeln ('Tne seed value is', seeo); 
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*******) 



END; 




[GLOBAL] 

PROCEDURE checK.stop (VAK stoprun j Poolean; 

cn : char); 

( * this reads a character from tne <eypoara ana aetermines 
if input should stop or continue *) 

BEGIN c *cnecrt.stop*) 

IF not (cn in C 'y ' , r Y ' , 'n ' , 'N ' ] ) then 
cn ;= 'z'; 
case cn of 

'n','N' ; stoprun ;=true; 

'y','Y' : stoprun ;= false; 

'z' ; writeln C ' error try again'); 

END; (*case*) 

END; ( *checK.stoc* ) 




[GLOBAL] 

PROCEDURE read. integer (VAR num {integer); 

C* Inis reads an integer from the terminal in char format 
and edits it for type. It looos error msgs until a leaal 
integer is input*) 

CONST 

goodse t = t'0'.,'y'j; 
maxintdig = 10 ; 



VAR 

line: array Ci.,80] of char; 
index, lengtn : integer; 
good. answer : boolean; 

BEGIN 

gooc„ans«er : = false; 
while not good. answer DO 
BEGIN 

index := 1; 

READClinec. index. ) ) ; 

while notClineC, index.) = ' ') and not eoln 
ana'dnaex < maxintdig) DO 
BEGIN 

index := index + l; 
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READdinec.lnaex.)) 

end; 

REAULN ; 

lengtn := index; 
gooa.answer ;= (index > i) or 

nct( ilne( . index. ) = ' '); 

FOR index := l TO lengtn DO 

good-answer := gooa-answer and 

(llne( . index. ) in goodset); 

IF not good-answer then 
BEGIN 

FUR index := l ro lengtn DO 
wRITEClineC. index. ) ) ; 
w R I T l L n ( 'is not an integer'); 
wnlTELM 'please inout again') 

END 

End; (*wnile+) 
num ;= 0; 

FOR index := 1 TO lenqtn DO 

num ;= num * 10 + ( ora ( line (. index .)) -ora ( '0 ') ) 
END; (*proc*) 



PROCEDURE write_query (VAR ans ; integer); 

( *tnis writes the terminal output tor olacntv * ) 

BEGIN (*wq*) 

wRITElnC ' this proc cuiias temp vers and conflict nists'); 
wRItsln ( ' tor tests'); 

wRITELN ( ' wnat ao you want to ouilu?'); 
wRITELN ; 

wRITELnC'I ; a teraoorary version'); 

*RITELm(* 2 : a conflict nistory oair'); 
w R 1 1 E L N ( '3 ; nothing'); 
wRITEln ; 

•vRXTEC 'responc with single aigit = = = >'); 
read-integer(ans); 

END; ( * wq * ) 



‘ * * * ) 



(GLOBAL) 

PROCEDURE saventv; 

(* tnis constructs either conf mists or temo versions ana 
outputs the data to file "runflle" for use cy proc 
conchtv.pas *) 
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(*dummy const*) 



const 

aa = 100; 



VAR 



cn : char; 

ans,a ;integer; 

correct , stoprun j boolean; 

curtv : ptr-tv; 

curcn ; ptr-cn; 



) 



PROCEDURE write-ch (curch ; ptr-ch); 

(* this writes to file runfile for constructing cn ana tv- 
structures *) 



VAR 

temppair : ptr-ch-cair; 

BEGIN 

temppair := curcn** . pair-ptr ; 

*RITELN( runt ile , curcn* ,aa-id. trans_site . ini t_site ) ; 
*RIT EL N(runfiie, curcn*, aa»ia, trans-site, trans-num); 
wRiT£L.n( runrile , curcn* . aa-id, st-num) ; 
wRITELN (runfile, curcn*. aa-ia, aa-num) ; 
ARIl’ELN(runrile,curcn*,aa-ia.r-w-tig) ; 

* RITELN (runfile, curcn*, aa_ia,ao-ia); 

*RI T ELN ( runfile, cure n* . aa-ia. cn-s eg); 

-vRlTELNCrunfile, curcn*, a a- ia. metric); 
wR I TELN (runfile , temppair* . aa-id . trans-si te , init-site ) ; 
wRI X ELN (runfile, teinppair A . aa-ia. tr an s-site.trans -nun); 
wRITELn ( runt ile , temppair* . aa-id. st-num) ; 

.v RITELN(r unrile, temppair*. aa-id,aa-num); 

*kITEL n ( runfile, temppair*. a a-id.r-w-fig); 
w HI TELN ( runfile , temppair* , aa-id, a 6_ia) ; 
aRIT ELN ( runfile, tempoair*. a a- id, cn_seq); 
AhiTELNCrunflle, temppair*. a a- id, metric); 
a RITELNC runfiie, temppair*. metric- sum); 

END; (*proc write-cn*) 



PROCEDURE const-tempv (vaR curtv : ptr-tv); 

(* this constructs a temp ver from parameters input 

interactively and places the aata'on tile runaata.dat *) 



VAR 

inval ; integer; 
cn ; char; 
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tempv 



ptr-tv 



BEGIN (.* 1 *) 

new ( curtv) / 

*RITELN(runfiie,'t'); 

wRITSLNC 'enter tne init site number'); 

readln ( ch ) ; 

while not (cn in l 'O' , ' l ' , ' 2 ' , 'j ' , M ' , 'b ' , 

' 'o','7','b','y'j ) do 

BEGIN 

WRITELN C 'error try again'); 

READLU(cn) ; 

end; 

wHlTSLiMfrunfiie/cn); 

wRITELNC 'enter tne trans number'); 

read_lnteger (cur tv*. aa_ld, trans-site, trans-num) ; 

WRIT£LN(r unfile, curt v*.aa-ld.trans_site.trans-num) 

wRIXELN ( 'enter tne sub trans numoer'); 

r ead.in teg er ( curt v* . aa-ia. st_num ) ; 

wKITELn ( run tile , curtv* .a a. id . st-num) ; 

wRITELn ( ' enter tne atomic action number'); 

read-integer (curtv* . aa-ia . aa-num) ; 

WRIlSLN(runfile,curtv*.a3-la.aa_num); 

wRITELN ( 'enter tne read write r or w flag'); 

READLN (Ch) ; 

wnlLE not (cn in l'r','w'J) Du 
BEGIN 

rRITtLN ('error try again'); 
readln ( cn ) ; 

END; 

w FITELN( runt lie, cn ) ; 

wPirtLNC 'enter tne aata ob] numoer'); 
reaa-integer (curtv* . aa-id . do-id j ; 
w RIT£LN(r unfile, curtv*. aa-ld.ao-id); 
wSIIELn ( ' enter tne conf nist seq number'); 
rea d- integer (curtv*. aa-la.cn-seq); 
whITELN ( runt ile , curtv* . aa-id. cn-sea) ; 

WRITELN ( 'enter tne metric numoer'); 
re aa_integer(curtv*, aa-ia. metric); 

WRITELN (runf ile , curtv* , aa-id .metric) ; 
wRITELN ( 'enter the metric sum number'); 
read.integer( cur tv*. metric-sum) ; 

WRITEL N(runfiie, curtv*. metric„sumj; 

•WRITELNC'enter tne status field cnar r , w , c , x' ) ; 
READLN(cn) ; 

while not (cn in t'r ' , 'w' , 'c' , 'x'J ) DO 
BEGIN 

wRITELN ( 'error try again'); 

READLN (cn) ; 

end; 

WRITELN (runf ile,cn) ; 
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end; (M*j 



* * ¥ « * ) 



PROCEDURE const.conhist tVAR curcn ; ptr.cn); 

( * tnis constructs a conf hist from Parameters inout 

interactively and places tne data on file runfile.dat *) 



V AS 

invai ; integer; 
cn ; cnar; 
tempcn : ptr.cn; 
temppair ; ptr.cn.pair ; 

BEGIN (*1*) 
new ( curcn) ; 
new ( temppair ) ; 
wfilTELN(runflle,'c'); 
curcn'*. nxt : = nil; 
curcn* . pair. per := temppair; 

wRITELN ( 'enter tne values for tne first cn pair memoer';; 
wRITELn ( ' enter tne init site numoer'); 

READLN (cn) ; 

while not (cn in [ '0' , '1 ' , "2' , '3' , '4' , 'b' , 

'6','7','b','9'J) DO 

BEGIN 

WRITELN ( 'error try again'); 

READLN ( cn ) ; 

END; 

curcn* ,aa. id. trans. site. init-site := cn; 
wRITELw ( 'enter tne trans number'); 
re ad. i nteger(curcn*,aa. id, trans. site. trans. n urn); 
wSITSLNC 'enter tne suo trans numoer'); 
read. integer (curcn*. a a. id. st.num) ; 

^RITELN ('enter tne atomic action number'); 

reaa.integer ( curcn*,aa.id. aa.num ) ; 

wRITELN ( 'enter tne read write r or * flag'); 

READLN (cn) ; 

while not (cn in t'r','w'j) DO 
oEG Ii\ 

wRITELN ( 'error try again'); 

READLN ( cn ) ? 

END ; 

curcn* ,aa. id, r-w.flg : = cn; 

WRITELN ( 'enter tne data op) numoer'); 
read.integer (curcn* . aa.ld . do-ia ) ; 

WRITELN ( 'enter tne conf nlst seg numoer'); 
read. integer (curcn*. a a. id. cn.seq) ; 
wRirELN ( 'enter tne metric numoer'); 
read. integer (curcn*. aa. id. metric) ; 
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wRITSLN ( 'enter values for tne second cn pair memoer'); 
w R 1 1 £ L n ('enter trie in it site n u m o e r ' ) ; 

REAOLN ( ch ) ; 

while not (cn in t '0 ' , ' l ' , ' 2 ' , ' d ' , ' 4 ' , 'b # , 

"'6','7','8','9'j ) DU 

BEGIN 

WRITELN ( 'error try again'); 

REAOLw(ch) ; 

END? 

temppair* .aa.ld. trans. site , init-site ;= cn; 

WHI IELfJ C ' enter the trans number'); 

read.integer ( terrppalr* . aa-id . trans.s ite „ trans. num) ; 

wpiteln ( ' enter tne sud trans nurhoer'); 

read. integer! temppair* .aa.ia. st.num) ; 

wRil'ELNC 'enter tne atomic action number'); 

reaa.integer(temppair' , .aa-ia.aa.num): 

wRITELn ( ' enter tne read write r or w fiaa'); 

readln ( cn) ; 

wHiLt not (cn in i'r'#'w'j) do 
BEGIN 

WRITELNt 'error try again')? 

READLN ( cn ) ; 

END? 

temppair-.aa.ld.r.w.flg := ch; 
writeln ( ' enter the data ooj numcer'); 
read.integer(temD?air'*,aa.ia,ao.id); 
writeln ( ' enter tne conf nist seq number')? 
read.integerCtemppair'-.aa-ia.cn-sea); 
writeln ( ' enter tne metric numoer'j? 
read. integer (temopair*. a a. id. metric); 
wH ITELN ( 'enter tne metric sum number'): 
read. integer (temppair*. metric. sum); 

END; (*!*) 



■ » * * ? * * ) 



PROCEDURE add.connist (VAR curch ; ptr.cn); 

(* tnls proc adds tne newly ouiit conf nist to tne 
runfile.dat file *) 



VAR 

curtr ; ptr-trans; 

curst : ptr.strans; 

tempch,folcn : ptr.cn; 

temptv ; ptr.tv; 

lndo , inval , intr , Inst ; integer; 

insite, cn : char; 



begin (»1») 

wr ITELN ( ' this places the new conf nist in a Place', 
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' of your cnoosing'); 

wRIT£LN( 'select wnere you want tne conf nist to go'); 
wRITELN; 

wRITELNC'l : to a data ob ject = >sortea oraer'); 

W R I T £ L N ( '2 : to a suo transaction'); 
wRITELN ( ' 3 : to a temp version'); 
wRITELNC'4 : to a transaction'); 

writeln; 

wr ITELN (' respond witn a single digit ===>'); 
read.lnteger ( lnval ) ; 

.ih I L£ not (inval in (1,2,3,**]) DO 
oEGi N 

wRITELN ( 'error enter again'); 
read. integer C lnval ) ; 

End; 

*RIT£LN(runflie, inval); 
case inval of 

1 : BEGIN C*ci*) 

wKITELN c 'type wnich data 003 gets tne coni', 

"' nist'); 

read.integerC lnval); 
while not (lnval in Cl. .99]) LO 
BEGIN ‘ (*2.5*) 

wkiteln ( ' error enter again'); 
read-integer ( inval ) ; 
end; c*2.5* j 

IF do. array Cinvalj = nil THEN 

wRITELN ( 'data obj not in use do over'); 
wRITELfUrurifile, inval); 
write.cn (curch) ; 
end ; (♦cl*) 

2 : BEGIN ( *C2 * ) 

wRITELN ( 'you are placing a conf hist m a', 

*' suo t ran') ; 

wRITELN ( 'enter tne init site for tnis conf', 

' ' nist') ; 

READLN ( msite) ; 

WHILE not (inslte in 1 'U ' , ' l ' , '2 ' , ' 3 ' , '4 ' , ' b ' , 

'o','7','a','9'J ) DU 

BEGIN 

WKITELN ( 'error try again'); 

READLN ( ins i te ) ; 

end; 

wKITELN (r unfile , insite ) ; 

writeln ( ' enter the trans num for this coni', 

"' nist'); 
read-integer ( intr ) ; 
while not (intr In (1..99J) do 
BEGIN 

WKITELN ( 'error try again'); 
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read-1 nteaer (intr ) ; 

END ; 

WRHELN(runf lie, intr ) ; 

wRITElN ( 'enter the sue trans nuro tor tnis', 

* ' conf hist ' ) ; 
read-integer(inst); 
while not (iiist in [l,.y9J) DO 
BEGIN 

wkITELnC ' error try again'); 
read-integer ( inst ) ? 

END; 

writ EL N crunfile, inst); 
write-cri(curch) ; 
end; c * 2 • * ) 

3 5 BEGIN (*3*) 

WKIIELNC 'you are placing a conf hist in a', 

' ' temp ver ' ) ; 

wRITELN ('enter the data ooj num for tnis', 

*' conf hist'); 
reaa-integer ( inao ) ; 

WHILE not Cindo in 11..99J) DO 
BEGIN 

writeln C ' error try again'); 
reaa-integer Cindo);’ 

end; 

WRITELN (r unfile, indo) ; 

wRITELN c 'enter the init site for this conr', 

■' nist'); 

• RtAULN C ins ite ) ; 

while not Cinsite in l ' u ' , ' l ' , ' 2 ' , ' 3 ' , ' 4 ' , ' b ' , 

'o', '7', 'S', ' 9 ' J ) DU 

BEGIN 

«h ITEL n ( ' error try again'); 
readln c ins 1 te ) ; 

END; 

wRUELNCrunfile, insite); 

wRITELN c 'enter the trans num for this coni', 

"' nist'); 
read-integer ( intr ) ; 
while not (intr in C1..99J) DO 
BEGIN 

wRITELN ( 'error try again'); 
read-integer C intr ) ; * 
end; 

wRlTELN(runfile,intr); 

wRITELN C 'enter the sud trans num ror tnis', 

* ' conf nist'); 
reaa-integer Cinst); 
while not (inst in C1..99J) DU 
BEGIN 
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wRITELN ( 'error try again'); 
read-integer Cinst) ; ' 

END? 

wKITELNiruntlle, inst) ; 

*rite-cri(curch) ; 

END; L*3») 

4 ; BEGIN (*C4*) 

'WRITELN ( 'you are placing a conf hist in a', 

'' trans'); 

wkITELN c 'enter the init site for this coni', 

■' n l s t ' ) ? 
reauln ( insite) ; 

ArtlLE not (insite in i'o','i','2','3','4','b', 

'o' , '7 ' , 'b ' , 'y 'j ) Du 

BEGIN 

writeln ( 'error try again'); 

Rt ADL n ( inslce) ; 

END? 

writeln ( runfile, insite); 

wkITELN c 'enter the trans num for this conf', 

' ' nlst ' ) ; 
read-integerClntr); 
while not (intr in C1..V9J) DO 
BEGIN 

NKITELN ( 'error try again'); 
reaa-integer(intr) 
end; 

*RITELrUrunriie,intr); 
write-cn Ccurch) ; 

END; (M.*) 

END; (*case*j 
END; (*1*) 



(****■****«: 



( * roain loop for savcntv *) 

BEGIN (*l*) 

re*rite(runf lie) ; 

REPEAT (♦until stoprun*) 
correct := false; 
a ; = l ; 

while correct = false DO 
BEGIN C*2*) 

write-query (ans ) J 
IF Cans in Ci,2,3J) THEN 
correct ;= true; 

end; (*2*) 
curtv := nil; 
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curcn := ml; 
case ans of 

1 : cons t-tempv ( curtv ) ; 

2: <3 EG I N 

const-conhist (curch) ; 
add-conhist (curch ) ; 
end ; 

3 : a : = a + 1 ; 

END; (*case*) 

4RITELN C 'more temp vers or conf nists ; y or n'); 
RE ADLNCCh) ; 

C!iecK.stcp(stoprun,cn); 
until st op run; 

END; (*1*) 



**) 



(GLOBAL) 

PROCEDURE concntv; 

(* tnis constructs either conf nists or temp vers from tne 
data m file runfile entered in proc savcntv * ) 

const 

aa = 100; C*dummy const*) 



VAR 

insite, ch : cnar; 

tfnere,invai,lnao,intr,lnst,dns,a ; integer ; 
curtv ; ptr-tv; 
curcn ; ptr-cn; 






PROCEDURE const. temDv l v AR curtv : Ptr-tv); 

(* tnis constructs a temp ver from parameters input from 
file runfile *3 

VAR 

invai ; integer; 
ch : cnar; 
tempv ; ptr-tv; 

BEGIN C*l*) 

NE*(curtv); 

cur tv" . tv.ch.ptr := nil; 
curtv*. nxt := nil; 

R£ADLN(runfile,curtv",aa.ia.trans_site.inlt.site); 
RtADL N (runfile, curtv 4 , aa-id.tr an s.site.trans.num); 
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READLN(run£ile, curtv*, aa-ia , s t-nurn ) ; 
R£ADLN(runflle,curtv*.aa-ld, aa-nuir.) ; 
R£ADLN(runiile, curtv*. aa- id. r_w«fia); 

RE ADLN (runf i le , cur tv* . aa-ia, do-id j ; 

ReADLN ( runf lie , cur tv * , aa-ic , ch-seq ) ; 

READLN (runf lie , cur tv* , aa-ia . metric ) ; 

RE ACLNCrunfile, curtv*, metric-sum) ? 
PEADLN(run£ile,curtv*,stat-rld); 

C*add the tv to the do*) 
inval := curtv* . aa_id. do-id; 

IF do-array tinvalj = nil ThEN 

wRITELN ( ' tnls data obj not in use') 

ELSE 

IF do-array (inval) *, tv-pcr = nil ThEf. 
BEGIN 

ao-array tinvalj tv-ptr := curtv; 
ao-array (inval) *.cn«seq := 

oo-ar r ay ( in val j * . cn.sea + i; 

END 

ELSt 

BEGIN ( *2* ) 

tempv := do-array ( inval] tv.ptr ; 
wnlLE tempv*, nxt <> nil DO 
tempv : =‘ tempv* . nxt; 
tempv*. nxt := curtv; 
do-array tinvalJ * ,cn-seq := 

do-array t inval j *, ch-seq + l; 
END; ( *2* ) 

END ; (*!*) 



PROCEDURE const-connist (VAR curch ; ptr-ch); 

(* cnis constructs a conr hist front parameters input from 
file runfile.dat *) 



VAR 

inval : integer; 
cn : char; 
tempcn ; ptr-cn; 
temppair : ptr-ch-pair; 

BEGIN (*1*) 
new ( curcn) ; 
new ( temppair ) ; 
curcn*. nxt := nil; 
curch* . pair-ptr ;= temppair; 

READuN(runfile, curch*. aa-io. trans-site. ini t-s 1 te ) ; 
READuN (runf. tie, curch*. aa-id. tr an s-site.trans-num); 
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READLN(runfile, curch* . aa-ia. st-num) ; 

READ LN(runfile,curcn*. aa-ia, aa-n urn); 

REAOLN (r unfile , cur cn* .aa.ia . r-w„f iq) ; 

READLN C runf He , cur cn* .aa-ia .do-id) • 

READln (runf He , cur cn* , aa-ia. cn-seq ) ; 
READLNtrunfile/Curcn^.aa-ia.metric); 

REAOLN (runf lie, temppair* .aa-ia. trans.slte . ini t-s ite) ; 
READ LMrunfile^emppair^.aa-id. trans-slte. trans-num); 
REAOLN(runfile,temppalr*.aa-ia.stinum); 
READLN(runflle,temDpair*.aa-id.aa-num); 

READLN (runf lie , temppair^ , aa-ia . r-.v.f lg) ; 

RtAOLN(runflle,terfippair*.aa-ia.ao-ia); 

REAOLN(runfile,temppair*.aa-ia.ch-seq); 

READ LN(runfile,tempoair*.aa-id. metric); 
seadln ( runf lie , tempp air*. metric-sum) ; 

END; (*1*) 



: » * ♦ } 



PROCEDURE add-conhlst (vas curch : ptr-cn; 

where , inval , indo : intecer; 
inslte : char; 
intr,lnst Integer); 

(* this proc adds tne newly built conf nist to the selected 
destination of a data obj,temp ver or suo trans *) 



VAR 

curtr : Dtr-trans; 
curst ; ptr-strans; 
tempen, folcn ; ptr-cn; 
temptv : ptr-tv; 



BEGIN i*l*) 

case *nere of 

1 ; BEGIN (*C1*) 

If d6„ar ray [ inval j s nil then 

wRITELn ( ' data obj not in use do ever') 

ELSE 

BEGIN ( *3* ) 

folch := ao-array linvalj • .cn.ptr ; 
tempen := do-array [lnval] * . ch^otr * . nxt ; 
WHILE tempen*. nxt <> mi DC 
BEGIN (*4*) 

folcn':= tempeh? 
tempen ;= tempen*. nxt; 

END; (*4*) 

curcn* ,nxt " ;= folcn*.nxt; 
folcn*. nxt j= curcn; 

END ; (*3*) 

END; ( * c 1 * ) 
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2 : BEGIN (*C2*) 

curtr := trans. ptr; 

IF curtr • nil Tht'N 

wRI teln C 'no transes at ail'); 
while (curtr* ,nxt <> nil) and not ((curtr”' 

, trans. s ite , init.site = lnsite) and" 
(curtr* . trans. site , trans. num = intr)) DO 
curtr := curtr*. nxt; 

IF (curtr*. nxt = nil) and not 

( (curtr*, trans. site. init.site = insite) ana 
( curtr* '. trans. site . trans-num = intr)) ihen 
wRITELN ( 'transaction does not exist in', 

* ' tnis ’ run ' ) 

ELSE 

BEGIN (*C2,1*) 

curst := curtr *. st. ptr ; 

IF curst = nil' THEN 

WnlTELN ( 'no sud transes for this', 

’* trans') 

ELSE BEGIN (*C2,i.5*) 

WHILE (curst*. nxt <> nil) ana not 
(curst* .st.ia = mst) oo 
curst := curst*. nxt; 

IF (curst*. nxt = nil) and not 
(curst* . st.id = inst) Tne.r>, 

WRITELN ( 'sub trans aoes not exist') 
ELSE BEGIN (*C2,2*) 

IF curst* st. ch.ptr = nil then 
curst* . st. cn.ptr := curcn 
. ELSE dtGlN (*C2.3*) 

teuipch ;= curst*. st. ch.ptr; 
wHiLt. tempen* , nxt <> nil Du 
tempen : =" tempen* . nxt ; 
tempch*.nxt := curch? 

END; (*C2.3*) 

END; ( * c 2 . 2 * ) ■ 

END; C*c2.1.S*J 
END; (*C2.1*)' 

END; ( * 2 . * ) 

3 : sEGlN (*3*) 

IF do.array ( indo) * . tv.ptr = nil THEM 
«hllELN( 'no temps t or this d.o,') 

ELSE BEGIN ' (*J. 1*) 

temp tv : = 'do-array Undo)*. tv.ptr; 

WHILE (temptv*,nxt <> nil) and not 

((temptv*. aa.id. trans.site, init.site = 
lnsite) and ( temptv* . aa.id . tr ans.s l te 
.trans-num ='intr) and 
( temptv* . aa.id , st.num = inst)) Du 
tempev ;= temptv*. nxt; 
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IF (temptv*.nxt = nil) and not ((temptv* 

. aa-la . trans-si te , init-s ite ='insite) and 
(temDtv*.aa-id.cranS-site.trdns_nurn = 
mtr) and ( temptv* . aa-ia . s t-num = inst)) 
Then 

writeln ( ' no sucn temp version exists') 
ELSE 

IF temptv* . tv-cn-ptr = nil the.* 
temptv* . tv-cn_ptr i= curcn 
ELSE BEGIN (♦3.4*) 

tempcn := ' temp tv*. tv.ch-ptr ; 

*HILE tempcn* . nxt <> nil DO 
tempcn : = ' tempcn* . nxt ; 
tempcn*. nxt := curcn; 

END? ( * 3 . 4 * ) 

END; (*3,1*) 

END; ( * 3 * ) 

4 : BEGIN ( *C4* ) 

curtr := trans-ptr; 

IF curtr = nil then 

wRITELn ( ' no transes at all'); 

*HILE (curtr * . nxt ' <> nil) and not ((curtr'*, 
trans-site , init-site = insitej ana 
( cur tr* . trans-s i te , t rans_num = incr)) Du 
curtr := curtr*. nxt; 

IF (curtr*. nxt = nil) and not ((curtr*. 

trans-site . In it_s ite = insite) ana' (curtr* 

. trans-s 1 te . trans-num = lntr)) TnEN 
nRIlELN C 'transact ion does not exist in', 

' this' run') 

ELSE 

BEGIN (*C4, 1*) 

IF cur tr * . trans-cn-ptr = nil then 
curtr* . trans-cn-ptr ;= curcn 
ELSE BEGIN (*C2.3*) 

tenpch ;= curtr *, trans-cn-ptr ; 

WHILE tempcn*. nxt <> nil DU 
tempcn : = ' tempcn* . nx t ; 
tempcn*. nxt ;= curcn; 

END; ( *c 2 . 3 * ) 

END? (*C4.1*) 

END ; ( * 4 , * ) ■ 

END; (lease*) 

END; (*!*) 



(* main loop for conchtv *) 
BEGIN (*!*) 
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while not eot(runtile) do 
dEGlN (*wtiiie*) 

R£ADLiM(runf lle,cn) ; 

If cn s 't' T HEN 

const^tempv(curtv) 

ELSE 



END ; 



END > 
(*1*) 



If CO = 'c' THEN 
BEGIN (*if*) 

READLN(runflle,wnere); 
case where of 

1 : BEGIN 

R£ADLh(runtiie,inval); 
const-connist(curch); 
ado..connisi(curcn,wnere,invai,o,'x 
o , o ) ? 

END; 

2 : BEGIN 

R£A0LN(r untile, insite); 

REAOLN (run rile, intr); 
REAOLN(runriie,inst); 
cons t-connist (cur cn) ; 
ada-connist (curch, where , u , u , ins ite 
intr,inst); 

END ? 

3 J BEGIN 

READLN(runtile,indo) ; 

REAOLN (runt ile, insite) ; 
kEaoln (runf He , lntr ) ; 
reaoln ( runt ile , inst ) ; 
const-conhist (curcn) ; 
ado-conmst (curcn , wnere,o,mao, 
l n sice, intr, Inst;; 

end; 

i : begin 

REAOLn (.runtiie, insite); 
reaoln ( runtiie, intr) ; 
const_conrust(curch); 
add«connist(curcn, where, u , o , m site 
intr ,0) ; 

END 



END (*case») 

END (*if*) 

ELSE 

RRITELN ( 'error on runtiie') 
(♦while*) 



t 



**) 



PROCEDURE print«.tran. struct ; 
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I 



C* tnis prints out tne transaction data structure to tile 
aata.ctat *) 



VAR 

temptr : ptr. trans; 



; * * * x * ) 



'a trans conf hist 



procedure: print. trcn (nead.cn : ptr.chj; 

(* tnis prints out tne trans coni nist data t) 
BEGIN 

If nead-cn <> nil THEN 
BEGIN (*it*> 

with nead-cn - DO 
BEGIN (*With«) 

writeln ( aata , 

*KlT£LN(aata) 

WRITELN ( aata , 

'aa.id 
wRITELN ( data f 
aa.id 
NkITELN ( data , 

WRIT£LN(aata , 
wkITEL.m (data , 
wRITELN (aata , 

WRITELN (aata , 
wRITELN (data , 
writeln ( aata ) ; 

wRITELN (data) ; 

end; i+witn*) 

WITH nead.cn - . pair.ptr - Du 
BEGIN (*With*) 



j ; 



init.site 

, trans.site. imt.site : 4 ); 
' trans. hum ", 

, trans.s 1 te . trans. num : 4); 

, ' aa.ld . st.num 



s t.num 

aa.num 

r-w.r lg 

ao.iu 

cn.seq 

metric 



aa.id . aa.num 
aa.ia . r.w.fia 
aa.id, ao.ia : 
aa.ia. ch-seq 
aa.id, metric 



; 4 ) 
: 4 ) 
i-*) 
4 j 
; 4 ) 
: 4) 



WKITELN (data , 


' Init.site 


0 

t 




’'aa.id . 


trans.site. init.site : 4 ); 




wRITELN ( aata , ' 


trans.num 


0 

t 




aa.id . 


trans.site. trans.num : 4 ); 




NRITELN(data, ' 


' s t.num ' , 


aa.id, st.num 


i 4 ) 


WRITELN (data , ' 


aa.num * , 


aa.ia . aa.num 


: 4 ) 


WRITELN (data , ' 


r.w.tig 


aa.ia . r.w.iiq 


; *) 


WRITELN (data , ' 


ao-la ' , 


aa.id. ao.ia : 


■ 4 ) 


*RITELN ( aata , ' 


cn.seq •, 


aa.ia , cn.seq 


; 4 ) 


WRITELN (data , ' 


metric 


aa.ia . metric 


;43 


writeln ( data , ' 


metric-sum 


' , ir.etr lc.sum 


: 4 ) 


writeln ( data ; ; 









end; C*wltn*J 
pr in t-trch( neaa.cn - . nxt) ; 
end (*i£») 

ELSE 

BEGIN 
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WRlTSLNtdata) ; 

NRITELN(data, 'end of tnis trans ccnf hist list'); 

WRITELN(data); 

END; 

END; (*proc print. trcn *) 



PROCEDURE print. stch (head.cn : ptr.ch); 

(* tnis prints out tne suo trans conr nist data tor a eacn 
trans *) 



BEGIN 

IF nead.ch <> nil IHEN 
BEGIN (♦if*) 

with nead.cn* oc 
BEGIN (*with*J 
a'RITELN ( data » 
aRITELN ( data) 
aRITELN ( data , 
aa.ld 
R I X £ L N (data , 

' aa.id 
.VRITELN(aata, 
WRITELN (data , 
NRITELn (data , 
aRITELN (data , 
■»ftlTELN(aata, 
WRIiELN (data , 
*R ITELN ( da ta ) 
* R ITELN ( data ) 
END; (*v»itn») 
*ITh nead.cn* . pair- 
6 EGI n (*with*) 
VhlTEuN (data , 
’ aa.id 
WKITEL.N ( data , 

’ aa.id 
wRIIELN (data , 
WRiTELN(aata, 
AKlTELN(data, 
wRITELN (data , 
*R ITELN ( data , 
aRI IELN ( data , 
WRITELN (data * 
aRITELN (data) 
END; (*-«ltn«) 
prlnt.stch(nead.cn* 
END (*lt*) 



4) ? 




4 ) ; 




n u rn 


: •*) 


,nuTi 


: 4) 


-flq 


: 4 ) 


id : 


4 ) 


s eq 


; 4 ) 



'a sud trans conr hist ; '); 

9 

' init.site 
. trans-site. init.site 
' trans. num 

, trans .site. trans.num 
' st-num 
' aa.num 
' r-w.fig 

dO-id 

' cn.seo 
' metric aa.ia. metric :<*) 



ptr* DO 
' init.site 

. trans. site, init.site : 4 ); 
' trans. num 

. trans. site , trans.num : 4); 

aa.id . s t.num 



s t.num 
aa.num , 

r-A-tig 
do-ia 
cn.seq 
metric 
metric-sum 



aa.id . aa.num 
aa.id . r.w.f id 
ad. ia. do. id : 
aa.id . cn.seq 
aa.id . metric 
' , metric.sum 



; 4) 
:4) 
; 4) 
4) 
: 4 ) 
;4) 
; 4 ) 



. nxt) ; 
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BEGIN 

WRITELNCdata) ; 

WRITELNCdata,'end this sue trans c o n f hist list'); 
*RIT£LN Caata, **************** ****** 4 ******* x ****') ; 
wRITELN Caata) ; 

END; 

end; (*prcc st*) 



PROCEDURE print. aa (nead.aa : ptr-aa); 

C* this prints the aa data for each sub trans *) 



an atomic act ion 



BEGIN 

IF nead.aa <> nil THEN 
BEGIN C*lf*) 

WITH heaa.aa* DO 
BEGIN C*Wlth*) 

WRITELN(data, 
wk ITELN C data ) ; 

wRITELNCaata, ' init.site ' , 

aa.id. trans.site. in it. site 
writeln (data , ' trans.num 

‘aa.id, trans.site. trans. n urn 
writeln C aata , ' st.num ’ 
wPITELN (data , ' 
aR ITE bN Cdata , ' 
aRITELN ( data , ' 
wRITELN Caata * 

WRITELN Caata , ' 

WRITELN (data , ' 
aRITELn C aata , ' 

writeln C data , ' 

WRITELN Caata , ' 



aa.num 
r.w.f lg 
ao-ia 

ch-seq 
metric 
stat 
t lme-va l 
step.num 
have. lock 



4) ; 

<*) ; 

aa.id .st.num ; 4 ) 
aa.ia. do. nut • 4 > 
aa.id . r.w.iig : <*) 
aa.id.QO.ia : «*) 
aa.id, cn.seq :4) 
aa.id, metric :4) 
stat : 4); 

, timelva i : 4 ) ; 

, step.num : 4;; 
nave. lock : b ) 



w ft ITELN Caata,' in.lockq-£lg',in.locKa.fig:b) 
wftlTELNCdata) ; 
end; c*witn*) 
print.aa(tiead.aa'*.nxt); 

END C*lf*j 
ELSE 

BEGIN 

WRITELN C data ) ; 

WRITELN (data , 'end of this atomic action list'); 
aRITELN ( data , 
writeln ( data! 

END; 

END; (*proc aa*) 
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PROCEDURE print.subt (nead-st : ptr.strans); 

(* tnis prints tne sue trans structure tor a trar.s *j 



begin (*Droc st») 

Ir nead.st <> nil THEN 
oEGIN (*i£*) 

t< l T H nead.st* DO 
BEGIN (*witn*) 

WRITELN(aata) ; 

*RITELN(aata , 'a sud transaction : '); 
WRITELN Caatal ; 



^RITELN (aata , ' 


st.ia 


' , st.ia : 


4 ) ? 


*RIT£LN (aata , ' 


aa.qty 


' , aa.qty : 


4) ? 


WRXTELN (cata, ' 


aa.tr. qty 


',a«.tr.qty : 


t ) ; 


ITELN (aata , ' 


exec-flg 


', exec-flu ; 


b) ; 


WRITELN (aata, ' 


tor X. fig 


',tor<-£lg ; 


b) ? 


* K I T E L n ( aata , ' 


mecr tc-sum 


metric. sun 


; 4 j ; 



WRITELN (data) ? 

END ; (*witn*) 
print. aa(head.st*.aa.ptr); 
pr int.stcn (neaa.st* . s t-ch-ptr ) i 
print.suDt(neaa.st*,nxt); 

END (*lf*) 

ELSE 



BEGIN 

writeuN (data ) ; 

WRITELN (data , 'ena of sub trans list, tnis trans')? 
*RITELN (data) ; 

end; 

END; ( * p r o c st*) 



PROCEDURE print. tran (neaa-tr ; ptr.trans)? 



(* tnis prints out transactions in tne aata structure *) 



BEGIN 

IF 



(*proc tr*) 
nead.tr o'nil THEN 
BEGIN (*it*) 



WITH nead.tr* DO 
BEGIN (*with*) 
WP.ITELN (data ) 
aKITELN Ccata , 
wkITELn ( aata , 
*RITELN (aata , 




) ? 
) ; 



*KITELN (aata , ' 
*RIT£LN (aata , * 
*HITELN (data , ' 



st.qty ',st.qty ; 4); 

exec-flg ', exec-flg : d); 

st.tr.qty ' , st.tr.qty ' : 4); 



114 



wRITELNCaata, ' init.slte 

trans-site, mit.site : 4); 
akITELN C data , ' trans-nun ', 

trans.site.trans.num : 4); 
aRITELN ( data) ; 

End; C*witn*) 

print- trcriC neao.tr ~ , t ran s.cn.ptr ) ; 
pr in t.suotC heao.tr Sst-ptr) ; 
print-tran(neaa.tr*.nxt); 

END (*lt*) 

E L S E 

BEGIN 

WRITELN(aata) ; 

wRlT£LN(data,'end of transactions '); 

WRITELNCaata) ; 

END ; 

end ; c*prcc tr*) 



*) 



(* nain loop for print-trans. struct * ) 

BEGIN ( *ma in* ) 

temptr := trans.otr; 
print. tran C temper ) ; 

END; (*main*) 



I*********} 



PROCEDURE print. do; 

( * tnls procedure will output to file 'data' tne oat a object 
structure *) 



VAR 

i : integer; 
temp.cn.ptr ; ptr.cn; 

temo. tv.ptr : ptr-tv; 

temp. locKq.ptr ; ptr.iocK.q; 

BEGIN 

FOR 1 ;s 1 TO 99 DU 

IF do.array C i J <> nil THEN 
BEGIN 

aRITELN (data); 
a RITELN (data); 

writeln (data, '**♦** do-array L',i;2,'j *****'); 

aRITELn (aata); 
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(* output do.perm.rect *) 
wITH do.arrayti)* DC 
BEGIN 



WRITELN 


(data, ' 


no.reads ; 


', no. reads); 


WRITELN 


(data, ' 


no-writes 


; ', no-writes); 


wRITELN 


(data, ' 


locx : ', 


lock); 


WRITELN 


(data, ' 


n.cnt " : ' , 


/-> 

M 

C 

u 

1 

c 


WRITELN 


(data, ' 


s-cnt ; ', 


s.cnt) ; 


WRITELN 


(aata, ' 


locK.qty ; 


' , loc<_qty ) ; 


w R i T t L N 


(data, ' 


cn.seq : ' 


, cn.seq); 


WRITELN 


(data ) ; 







( * output tne do-perm conflict nistory * ) 
writeln (data,'** ao.perm conflict nistory **'); 
wRITELN (data); 
temD.cn-ptr := ch-ptr'“.nxt; 

wdi Lt temp.cn.ptr A .aa-ia.trans.site.trans-nurr, <> 
9999 DC 
BEGIN 

wITH temp-ch-ptr* DC 
BEGIN 

WRITELN (data , 'mlt-site : ',aa.ia 
♦trans-site, ini t. site); 
wKl TELN (data , ' trans.num : ', aa-ia 
, trans-site, trans-nuit!) ; 
wRITELN (data , 'st-num ; ' , aa.ia . st.nurr.) ; 
wfti TELw ( data , 'aa-nun ; ' , aa-id , aa-nurr. ) ; 
wRIT£LN(aata,'r-W-flg :',ae-ia.r-w-fld); 
wRITELN (aata , 'ao-ia ; ' , aa-ia . do-ic j ; 

*RI TELn ( data , 'cn.seq ; ', aa.ia . cn.seq ) ; 
WRITELN (data , 'metric ; ', aa-ia, metric ) ; 
wRITELN (aata ) ; 
w ITh pair-ptr* DC 
BEGIN 

wRITeLn (data , 'init.site : ',aa_id 
trans-site, init- site); 
WRITELN (data , 'trans-num ; ',aa.id 
", trans-site, trans-nurn) ; 
wRITEun ( data , 'st.num : aa.xd 

’ , st-num) ; 

WRITELN (aata , 'aa-nurr, : aa-ia 

" , aa_num) ; 

wRITELN (data , 'r-w-flg : ', aa-ia 
, r-w-f Id) ; 

wRITELN (aata ," 'do. la : ', aa-ia 

,ao-ld) ; 

WRITELN (data , 'cn.seq : ', aa.ld 
' .cn.seq) ; 

WRITELn ( aata , 'metric : ', aa-ia 
.metric) ; 

wRITELN ( aata , 'metr ic_sum : 



116 



metric-sum) 



END 

end; (* while *) 
wRITELN (data ) ; 

WRITELN (data); 

temp-cn-ptr ;= temp.ch-ptr * . nxt 
end; 

(* output the temp versions *) 
wRITELN (data); 

wRIT&Ln (data , '**♦** temporary versions *****'); 
wRITELN (data); 
temp-tv-ptr ;= tv-ptr; 
while temp-tv-ptr <> nil DO 
BEGIN 

with temp-tv-ptr* DC 
BEGIN 

wRITELN (data, '* temp version aa-io *'); 
wRITELN (data ) ; 

wRITELN (data , 'mit-slte ; ',aa-id 
. trans-site , i nit- site ) ; 
wRITELN (aata , 'trans.num ; ',aa-ia 
, trans-site, trans -num); 
wR I TELN (da ta , 'st-num ; ', aa„ia, st_num) ; 

wRITELN (aata, 'aa-.num ; ', aa-io . aa-num ) ; 
wKlTELN(aaca,'r-w.tia ; ' , a a- id . r-w.t 1 g ) ; 
wRITELN (data , 'dc-iu : ', aa-id . do-id j ; 
WRITELN (aata , 'cn-seq ; ', aa-ia . ch-sea j ? 
wRITELN (data , 'metric ; ', aa-io. metric) ; 
wRITELN (aata, 'metric-sum ; ' , metric- sum ) ; 
wRITELN (aata , 'stat-ild ; ' , stat-f la) ; 

wRITELN ( data ) ; 

(* output temp version conr history *) 
wRITELN (aata) ; 

wRITELN (data , ****** temo version con t ' , 

' nist *****'); 
temp-ch-ptr := tv.cn-Dtr; 
while temp-ch-Ptr <> nil DO 
BEGIN 

wITH temp-ch-ptr* DO 
BEGIN 

wRITELN (aata) : 

writeLn (aata, 'mit-slte ; aa-id 
•trans-site, init-site) ; 
WRilcLN(data, 'trans-num : aa-io 
,trans_site,trans-num); 
WRITELN (aata, 'st-num ; ', aa.ia 

.st-num) ; 

iwRiTELN (data , 'aa-num : ', aa_ic 
, aa-num) ; 
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WRiTELw (aaca, 'r.w.tiq : ba.i 

. r-w-flg) ; 

'*R ITELn (data , 'do.ia : ' , aa.id 
. do-id ) ; 

WRITELr. (data , 'ch.seq : aa.id 

•cn.seq) ; 

WRiTELN(aata, 'metric : ', aa.ia 
.metric ) ; 

WRiTt’LNCaata) ; 

with pair.ptr* Du begin 

nF.iteln (data , 'init_site : ', 
aa.ia. trans.site.init.site) 
wRiTELw (data , ' trans.num : ', 
aa.ia. trans. site. trans.num) 
wfixTtLN (data , 'st.num : ', 
aa.ia . s t.num ) ; 
wRj.Te.Ln ( aata , 'aa.nun : ', 

aa.ia .aa.numj ; 
wh iTtLN (data , ' r.w. t lg : 
aa.id. r.w.f lg ) ; 
wKI lELfv (aata , 'ao«lc : ', 

aa.ia.ao.id) ; 
wRiltLN (aata , 'cn. sea : ', 

aa.ia . cn.seq ) ; 
wRlTtLu (cats , 'metric : ', 
aa.ia. metric) ; 

wRiTe.LN(aata, 'metric. sum : ', 
metric-sum) ; 

END 

END; (* witn temp.cn. ptr *) 
w ft I T L L i i (data); 

* R I T E L n (data); 

temp.cn.ptr : = temp.ch.ptr~.nxt 
END c* wnile *) 

END; ( * witn temp. tv. ptr *) 
wRITELN (data); 

temp.tv.ptr := temp.tv.ptr , '.nxt 
end; (* while *) 

C* output tne lock queue *) 
wRiltLN (data); 

aRITELN (data, '***** lock queue *****'); 

writeln (aata); 

temp. lockq. ptr := locK-c-ptr; 

WHILE temp.locxq.ptr <> nil DO 
BEGIN 

wITH temp.iockq.ptr ~ DO 
BEGIN 

wRITELN(data, '***** locx.q aa.ia', 

' ***¥*'); 

WRITELN (data) ; 



l la 



wRITELN (data, 'init.slte : ',aa.ia 
, trans-site. lnit.site) ; 

*RI ffcLw (data, 'trans-num : ',aa.ia 
.trans.site.trans.num); 
wAITELN (ciata , 'st-num : ',aa.ld,st.nu,Ti); 
w RIXELN (data , 'aa-num : ' ,aa.id . aa.num) ; 
wRITELN (data, 'r.w. tig : ' , aa.ia . r.w.f lg) ; 
wAITELN (aata , 'ao-id : ' , aa.ia . ao.ia ) ; 
wRITELn ( aata , 'cn.seq : ' , aa.ld . ch.s eq ) ; 
aAITELn (data , •'metric : ' , aa.id . metr ic ) ; 
wRITELN(aata) ; 

ternp.locKq.ptr := temp.locKa.ptr " . nxt 
c.NU (* witn ' temp.locxq.ptr *) 

END (* while *) 

END ( * witn do. array *) 
end (* if tnen *) 

END; 






) 

) 



PROCEDURE print-dic; 

( * tnis procedure outputs to tile 'data' the data dictionary 
structure *) 



VAR 

1 ; Integer; 
temp.aic.ptr : ptr-dlc; 

BEGIN 

•i K I T E L N (data); 
wRITELN (cata); 
aPIIELN (aata) ; 

FOR 1 0 TO 99 DO 

IF die. array [iJ <> nil THEN 
BEGIN 

wRiTELN (aata) ; 

* AIT EL n ( data , ****** dic.array [',1:2, 'J *****•)• 
wRITELN(aata) ; 

temp. die. ptr := dic.array L i j ; 

REPEAT 

WRITE (data, ' ', terop-aic.ptr" . site-id ) ; 

temp. die. ptr : = temp. ale. ptr" , nxt 
until temp-cic. ptr = nil; 

*RXTELN (data) 

END 

END ; 



*) 
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;*¥*****) 



[GLOBAL) 

PROCEDURE prselect; 

C* this is a utility print routine for all internal oats 
structures allows a user to select wnicn aata structure 
to print *) 



VAR 



i,insel : lnteaer; 



BEGIN 



i : = 0; 



you want'); 



wRITSLN ( 'select wnicn printout 
wRXTELN; 

trans-structure'); 
aata. object structure'); 
aata. dictionary structure'); 
trans and data.obj'); 
trans and aata aic'); 
data ob) and aata die'); 
all three'); 
none '); 

answer ' ) ; 



wRITELN ( ' 1 
wRITELM '2 
wRITELN ( '3 
wHITELw ( ' 4 
wRXTtLN ( ' b 
wRITELNC 'b 
wKlTELNC'7 
wRITELN ( '& 



wRITELn ( ' enter an integer 
read.integer ( insei ) ? 
case insei of 

1 ; pr int.tran. struct ; 

2 : print. do; 
i : print. oo; 
a : BEGIN 

pr int.tr an.s true t ; 
print. do; 

END ; 

b ; BEGIN 

print.tran.struct; 

print.dic; 

end; 

b ; BEGIN 

print.dic; 
print. do ; 
end; 

7 J bEGIN 

print.tran.struct; 
print.dic; 
print-do ; 

, END ; 

3 ; i ; = 1 ; 



END; (*case*) 
end; (*proc*) 
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END 



C* module 9 *) 



t * * * ******** 1 



[INHERIT ( 'builds. pen') J 

PROGRAM algo. test (input, output, audit, data.ru n file, 

trans,datadic,aobj); 



VAR 

3 , time. delay , i : integer; 
seea : unsigned; 
cn : char; 
s toprun ; boolean; 

curge-llst-ptr , tvl. purge ; ptr-ch; 



(EXTERNAL) 

PROCEDURE DldtX,* 

EXTERN ,* 

(EXTERNAL) 

PROCEDURE tlddlc; 

EXTERN ; 

(EXTERNAL) 

PROCEDURE blddO ; 

EXTERN; 

(EX CERNAL) 

PROCEDURE enter-time-delay (VAk time-delay Jinteger); 
EXTERN; 

(EXTERNAL) 

PROCEDURE enter-random. seed CVAR seed ;unsignea); 

EXTERN; 

(EXTERNAL) 

PROCEDURE checK.stop (VAR stoprun : coolean; cn : cnarj; 
EXTERN; 

(EXTERNAL) 

PROCEDURE bldcntv; 

EXTERN; 

[EXTERNAL) 

PROCEDURE savcntv; 

EXTERN; 
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(EXTERNAL) 
procedure concntv; 

EXTERN; 



[ EXTERN AL] 

PROCEDURE prseiect; 

EXTERN,* 

[EXTERNAL] 

FUNCTION MTHSRANdqm (VAR seed : unsigned] : real; 
EXTERN ; 

[EXTERNAL] 

PROCEDURE add.n.and.t CVAR cur.ch-ptr : ptr. ch); 
EXTERN; 



‘ T ? ) 



PROCEDURE select. trans (VAR seit.have.aa : boolean; 

VAR seit.trans.ptr ; ptr.trans; 
VAR seed : unsigned); 



C * this procedure will randomly select tne next transaction 
to oe worked on within those wmch nave already negun 
execution and tne next one in tne iinicea use of 
transactions ») 



VAR 

temp.trans.ptr : ptr.trans; 
i, throw : integer; 

BEGIN 

IF trans. ptr = nil THEN 
seit.have.aa ;= false 
ELSE BEGIN 

seit.trans.ptr := trans-ptr; 

I : = 1 ; 

( * set i = no. of trans already executmq + 1 * ) 

WHILE sel t. trans.ptr o nil Do 
BEGIN 

IF seit.trans.ptr* . exec. tig = true then 
i := l + 1? 

seit.trans.ptr ;= seit.trans.ptr* . nxt 
END; 

(* call random number generator tor integer l -> 1 *) 
tnrow ;= ( TRUNC C ( mth s R AnOGm ( seed) ) *1UQ0(J0) ) MOD l + l; 

(* select tne trans *) 
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selt-trans.ptr := trans-ptr; 

FOR i := 1 TO (throw - l) DU 

IF selt.traris.ptr* . nxt <> nil THEN 

selt. trans-ptr ' ;= seit-trans.ptr* .nxt; 

(* flag the trans as '•executing" *) 
selt-trans-ptr* . exec«f lg := true 
END (* ELSE *) 

END; 






PROCEDURE select- st l v ah sels-nave-aa ; boolean; 

se Is. trans-ptr : ptr-trans; 
VAR sels-st-ptr ‘ : ’ ptr_strans ; 
VAR seed ; unsigned)/ 



(* This procedure win randomly select the next 

suDtransaction to work on witnin a given transaction. 
Those *hicn have ail tineir atomic ' actions as t(r) are not 
considered; neltner are the'suotransactions wnicn are 
torxeo to another site *) 



VAR 

i, throw : integer; 
sels-temp-ptr : ptr-aa; 
have. st : ooolean; 

BEGIN 

IF sels-trans-ptr * . st-Dtr = nil THEN 
sels-have.aa := false 

ELSE BEGIN 

(* call number generator for integer l->no. or st's *) 
throw ;= (TRUNC (C^THSRAndom (seed)) * louuoo); 

mod sels-trans-ptr* . st-oty + l; 

(* select tne suostrans *) 
sels-st.ptr := sels-trans-ptr* , s t-ptr ; 

FOR i : = 1 TO (throw - l) do 

sels-st-ptr sels-st-ptr* ,nxt; 

(* cneck IF subtrans' aa's are all finished *) 
sels-temp-ptr ;= sels.st-ptr* . aa-ptr ; 
nave-st ;= false; 
while sels-temp_ptr <> nil DO 
BEGIN 

IF sels-temp-ptr* , step-num < 14 THEN 
have.st ;= true; 

sels.temp.ptr := sels-temp-ptr* , nxt 
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end; 



IF ( sels.st.pt i* , f ork-f lg ) or INUT nave.st) r n E n 
sels. have.aa ;= false 
ELSE 

sels.st.ptr* . exec.tla := true 

END 

EMC; 



PROCEDURE tind.aa (init.site : cnar; 

trans.num, st.num, aa.num ; integer; 

VAR out.aa ; ptr.aa; 

VaR out.st ; ptr-strans; 

^AR out-tr ; ptr.trans); 

(* This recursive proc returns tne pointers to t.ne requested 
atomic action, sub transaction and transaction. It tne 
proc cannot f lna tne entity requestea a nil value is 
returned in tne oointer. *) 



VAR 

temptr ; ptr.trans; 



PROCEDURE aa.find tout.aa.ptr ; ptr.aa); 

(* this attempts to tma the input aa *) 

BEGIN 

IF out-aa.ptr <> nil then 

IF out-aa.ptr* . aa-id , aa.num = aa.num THEN 
out.aa ;= out-aa.ptr 
ELSE 

aa.iind(out.aa.ptr* . nxt ) 

END; (*prdc aa tina*) 



PROCEDURE fina.st Cout.st.ptr ; ptr.strans); 

(* this attempts to find the input sub trans*) 

BEGIN (*proc st*) 

IF out.st.ptr <> nil THEN 

IF out.st.ptr* . st-id = st-num THEN 
BEGIN 

out.st : = out.st.ptr; 
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aa.find £out.st.ptr , ‘.aa.ptr) 

END 

ELSE 

find. st (out-st.ptr*.nxt) 

END; (*proc st*) 



PROCEDURE find-tr (out.tr.ptr ; ptr.trans); 

(* this attempts to find the input trans action *) 

begin (*proc tr*) 

IF out.tr.ptr <> nil THEN 

IF ( out.tr.ptr * . trans-s ite , ini t. site = init.site) ana 
(out.tr.ptr*. trans-site, trans-num = trans.num) Int n 
BEGIN 

cut.tr := out.tr.ptr; 
find. st (out.tr.ptr* , st.ptr ) 

END 

ELSE 

find.tr £ out.tr.ptr * . nxt ) 

END; £*proc tr*) 



£ * main program for flnd.aa *) 
BEGIN £*raain*) 
out.aa := nil; 
out-st := nil; 
out-tr ;s nil; 
temptr := trans.ptr; 
f ind.tr (temptr) ; 

END; £ *main* ) 






PROCEDURE select. aa (VAR 

'VAR 

VAk 

VAR 

VAR 



sela-nave.aa ; ooclean; 
sela-trans.ptr : ptr.trans; 
sela.st.ptr ; ptr.strans; 
sela.aa.ptr : ptr.aa; 
seea ; unsigned); 



£ * Tnis procedure selects tne next atomic action to work on. 
If the re. execute list, which is an input to tnis 
procedure, is not empty tnen the atomic action to oe next 
executed is taken from tnat list.' it tne list is empty 
then a ranaora ' numoer generator win' provide a means for 
selecting tne atomic action. * ) 
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VAR 



1 : Integer; 

sela.diSDOse.ptr : ptr.reexec; 

BEGIN 

sela.nave.aa := true; 

IF reexec.ptr <> nil THEN 

(* execute next aa from re.execute list *) 

BEGIN 

find.aa ( reexec.ptr * . lnlt.site , reexec.ptr* 
.trans.num', reexec-Dtr * , st.num , 
reexec.ptr *. aa.num , seia.aa.p tr , 
sela.st.ptr, sela.trans.ptr) ; 
sela.dispose-ptr := reexec.ptr; 
reexec.ptr := reexec-ptr* . nxt; 

DISPOSE ( seia. dispose. ptr ) ; 

IF sela.trans.ptr = nil Then 
sela.nave.aa := false 
ELSE IF sela.st.ptr = nil TnEN 
sela.nave.aa ;= false 
ELSE IF seia.aa.ptr = nil TnEN 
sela.nave.aa j= false 

END 

ELSE 

(* "randomly" select next aa *) 
begin 

(* select tne transaction to te next worked cn *) 
select.trans (sela.nave.aa, sela.trans.ptr , seea); 

(* If tnere are sustransactions yet to complete 
execution, tnen randomly select one a i t n 1 n tne 
aDOve selected transaction *) 

It sela.nave.aa THEN 

seiect.st ( sela.nave.aa , sela.trans.ptr, 
'sela.st.ptr , seed); 

(* witnin tne acove selected suotransaction , if 
an atomic action is yet to f inisn , ‘ '*or< on 
that, else ^or< on tne next one *) 

IF sela.nave.aa THEN 
BEGIN 

seia.aa.ptr : = sela.st.ptr* .aa.ptr ; 

WalLE’ seia.aa.ptr* . step.num = in do 
BEGIn 

IF seia.aa.ptr* .nxt = nil Then 

WRITELN (audit , 'ERROR ; select.aa * 
"'is trying to select next* 
' aa wnen none are tnere*) 
seia.aa.ptr := seia.aa.ptr *‘. nxt 
end; 

(* IF aa is In lock queue don't select it *) 
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true THcN 



IF sela.aa.ptr" . in-lockq-f lq = 
sela-nave.aa := raise 
END? (* IF IHfcN *) 

END; 

IF sela-have-aa Then 

C + output wnicn aa was selectea *) 

BEGIN 

WHITELN (audit, 'aa selectea tor execution is 
whITE (audit, sela-aa-ptr* 

,aa-ia, trans-site, init-site : 2); 
WRITE (audit, sela-aa-ptr " 

,aa-la, trans-site. trans-num : 2); 
wRITE (audit, sela-aa-ptr" 

,aa-id. st-num ; 2 ); 

WRITE (audit, sela-aa.ptr" 

. aa.iu , aa-num : 2); 

wRITELN (audit); 

LhC 

END; 



FUNCTION locked (donum : integer) ; Doolean; 

(* tnis tests a d,o. to see it it is loc<ed *) 
BEGIN 

locked := do. array (donum) ", ioc<; 

END? 



t* < * * * ) 



PROCEDURE time-out (time-delay ; inteaer; 

’ time-aa-ptr ; ptr.aa); 

( * tnis produces tne time out period for aas wnicn are 
locked out by manipulating a tielo m tne aa record *) 

BEGIN 

time-aa-ptr ", time-val := time.aa-ptr* . time.val + 1? 

writeln (audit, 'this a a is in time out ;'); 
wRITE (audit , time-aa-ptr ", aa-id 

. trans-site , init-s ite ; 2); 
write (audit, time-aa-ptr ".a a- id 

, trans-site, trans-num : 2); 
write (audit, time-aa-ptr", a a- id 

, st-num ; 2); 
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•vRIlE (audit,time.aa.ptr‘*.aa.la 

. aa.num : 2j; 

wRITELN (audit ) ; 

END; 






PROCEDURE acquire. lock (donum : integer; 

'aca.st.ptr ; ptr.strans; 
acq.aa.ptr : ptr.aa); 

( ♦ This locks the target do ana formats a msg tor every site 
at which the ao is replicated. If tne target ao is not at 
this site, this proc sets tne sue trans tig as forking ana 
packages the sud trans travel msg. ♦ ) 

BEGIN 

(♦insure tne data obj is in use*) 

(♦msg for forking sud trans & replicatea data for ioc<s*) 
IE aic.array Cdonuml = nil Then 

wRITELN (audit, 'lock attempt on a oata ooj not useo' 

, donum ) 

ELSE 

IF do. array CaonumJ *. lock THEN 

*RITELN( audit , 'attempt to lock a locked d.o. : ' 

, donum : 4) 

ELSE 

BEGIN ( *1 • 1 ♦ ) 

do. array [donum J *, lock-aty ?= u; 
ao. array idonumJ * . lock ;= true; 

*RITELN(aud it, 'locking data obj', donum ; 4); 
acq.aa.ptr *, have. lock ;= true; 

End; ( * l , l ♦ ) 

END; (♦acquire. lock^j 






FUNCTION is. at- site (donum ; integer) : Doolean; 

(♦ this returns true it tne data ooject citea cy donum is at 
this site, false if it is not ♦) 



VAR 

curaic ; ptr.dic; 



BEGIN 

is-at.slte ;= false; 
curaic := die. array Caonum) ; 
while curdle <> nil DO 
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BEGIN 

IF curdic* . site.id = ale-array [0] *, site.ia then 
ls-at-site := true; 
curdic := curaic*,nxt; 

END; 

end; 






PROCEDURE loadtv Cao_id : Integer; 

ioad.tv.ptr : ptr-tv; 
ioaa-st-ptr ; ptr-strans; 
load.aa.ptr : ptr.aa) ; 

( * this loads tne newly created temc ver Dointed to oy 
load. tv. per *ltn aata pointed to oy ioaa.aa.ptr ana 
load.st.ptr *) 

BEGIN 

load.tv.ptr".aa.ia,trans-slte.lnlt.site := 

load.aa.ptr * . aa.id. trans-si te . init-site; 
loaa.tv.ptr*, aa.id. trans-site, trans-num := 

loaa_aa_ptr*.aa_id.trans-site,trans_num; 
Ioad.tv.ptr* . aa.id, st.num := load.aa.ptr *. aa.id . st.num; 
load. tv.ptr* . aa.id, aa.num ;= load.aa.ptr*. aa_ia.aa.nurr-; 
ioad.tv.ptr* , aa.ia . r.w.t lg ; = load.aa.ptr *. aa.iu . r.w.f lg ? 
loa d_ tv.ptr*. aa.ia, a o_ id :=~loaa_aa.ptr*,aa_ia.do_la; 
loaa. tv.ptr*. aa.ia. cn.seq ; = ioac-aa.ptr *. aa.id . eh. seq ; 
Ioad.tv.ptr*. a a. id. metric := loac.aa_ptr*.aa_ia.'netric; 
ioad.tv.ptr* . nxt := nil; 

load.st.ptr* . metric.sum := load.aa.p tr * . aa.id. metric + 
loa a. st-ptr*. metric. sum; 

Ioad.tv.ptr* .metric-sum := load.st.ptr*. metric. sum; 

(♦update ch.seq In do perm, place in new tv recora*) 
do.ar ray tdo.iaj *. cn.seq s= do.ar r ay ido.id J * . cn.seq + 1; 
load.aa.ptr*, aaiid. cn.seq ;= do.array Ldc. id J * .cn.seq; 
loaa.tv.ptr* . aa.id. cn.seq := do.array Ido.iaJ *. cn.seq; 

END; 






procedure sortDld Ccurcna : ptr-cn; 

do. id : integer); 

(* Tnis inserts a linked list ot cor.rilct histones into the 
data oeject conflict history list in sorted order. rne 
new list is pointed to oy curcna ana tne data ocject is 
identified by the do-id input, tne go cn nas a neader and 



trailer record *) 



VAR 

sor t.ch.ptr , basecn , curcnb , Diacn : otr.cn; 
paircn : ptr.cn.palr; 

BEGIN (*rl*) 

sort.ch.ptr := curcna; 
nhile sort.cn.ptr <> nil do 
BEGIN C*r2*) 

basecn := do_array [do.idJ * .ch.ptr ; 
curcnb := basecn*. nxt; 

«H1LE curcno* ,aa_ld . trans_site. imt.site < 

sor t.cn. btr* . aa. ld.tr an s.site.init. site Du 
BEGIN ( *r 3* ) 

basecn := curcno; 
curcho := curcno*. nxt; 

End; (*r3*) 

IF curcno* . aa.id , trans.s 1 te . init.s i te = 

sort.ch.ptr* . aa.id . trans.site. init.slte Then 
IF NOT ( sort-eft. ptr ". aa. ia . trans.s i te . trans-nu.ti < 
curcno*. aa.id. trans_site.trans.nunu Trie.,* 
nhILE (curcho* . aa.ia . trans.s ite . ini t_ si te = 
sort. ch.ptr*. aa.ia. trans.site 
• Init.s ue) ana 

( sor t. ch.ptr*. aa.ia, trans-site 
'.trans.num > curchb* . aa.ia . trans.site 
, trans.num ) DO 
BEGIN C+r4*) 

Dasecn := curcno; 
curcnt := curcno*. nxt; 
end; C*r4») 

NE* CDldcnj ; 
new ( paircn ) ; 

Dlocn* . pair.pt r ; = paircn; 
olacn~.nxt : = basecn*. nxt; 
oasecn*. nxt := blocn; 

paircn* . aa. id ;= sort-cn-pt r * . pal r.ptr* . aa.ia ; 
pairch* . metr ic-sum : = 

sor t.cn. ptr*. pair.ptr*. metric. sum; 
Dlacn*.aa*ia s6rt.ch_ptr~.aa. id; 
sort.ch.ptr ;= sort_cn_ptr*'.nxt; 
e>id; C*r2*) 
end; (*rl*j 




PROCEDURE linXDla ( ln.send.ptr , in-accept_ptr : ptr.cn); 

(* this adds tne memcers of tne conflict nistory lin< list 
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pointed to o.y in-send-ptr to the list pointed to oy 
in-accept_ptr *) 



VAR 

nucnptr , ptrtoch , iink-ptr : ptr-cn; 
nupair : ptr-cn-pair; 

BEGIN (*ll*) 

linK-ptr := in-accept-ptr ; 
ptrtocn := in-send-ptr; 

REPEAT 

IF ptrtocn*, aa-id, trans-site, trans-num <> yyyy ihen 
BEGIN (*12*) 

NEw cnuchptr ) ; 
new c nupair ) ; 

nucnptr *. pair-ptr := nupair; 

nuoair*', aa-id := ptrtocn*. pair -ptr*.aa-id; 

nupair* . metric-sum ;= 

ptrtocn* . pair-ptr* . metnc-sum? 
nucnptr* , aa-id : = ptrtocn* , aa-id ; 
nucnptr*. nxt :='nil; 

1 lnx.pt r* , nxt ; = nucnptr ; 
iinx.ptr':= nucnptr; 

END? C*12*) 

ptrtoch i = ptrtocn*. nxt? 
until ptrtocn = nil? 

END? cm*) 



PROCEDURE copy-to-tv (curcna : ptr-cn? 

copy tv-tv-ptr : ptr-tv; 
donum : integer); 

(* linx the conflict history list pointed to by curcna 
to the ne*ly created temp version to tne data object 
pointed to py donum *) 

VAR 

curcnb : ptr-cn; 
paircn ; ptr-cn-?air; 

BEGIN ( *Cl * ) 

NEw(curchb); 

NEW(paircn) ? 

curchb* . pair. ptr := pairch; 

copy tv-tv-ptr* . tv-cn-ptr := curchb; 

paircn*, aa-id' : = cur cna* , pair-ptr" . aa-id ? 

paircn* .metric-sum := curcna*. pair_ptr*, metric-sum; 

curcno* , aa-id := curcna* , aa-id? ' 
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curcno* . nxt : = nil ; 

C*Ir more cn recs then link tnenr. xn to tv ch*) 

IF curcha*.nxt <> nil THEN 

linkDld(curcna".nxt,copytv.tv.ptr*.tv.cn.otr)? 
END; (*cl*) ' 






PROCEDURE copy-to.st (curcha : ptr.cn? 

copys t.st.ptr : ptr.strar.s ) ; 

C* link tne conflict history pointed to oy curcha to tne 
suotrans pomtea to oy copyst.st.ptr *) 



VAR 

curcno ; otr.cn; 
paircn : ptr.cn. pair; 

BEGIN c*sl*) 

NE* (curchb) ; 

NE* (paircn) ; 

curcno* , pair.ptr pairch; 

paircn*.aa.id ;= curcha" .pair. ptr* ,aa. id; 

pairch*,metric.sum ;= curcha*. pair. ptr", metric. sum; 

curcno* , aa. id ;= curcha* , aa. id ; 

curcno*. nxt ;= nil; 

copyst.st.ptr* , st.ch. ptr := curcno? 

(* If more ao cn, im< tnem in to st cn list*) 

IF curcna*.nxt <> nil THEN 

linkbld ( cur cna* . nxt , copyst.st.ptr * . s t.cn.pt r ) ; 
END; C*sl*) 



) 



PROCEDURE mstalitv Cinst-aa-ptr : ptr.aa; 

'inst.st.ptr : ptr.strans? 
inst.tv.ptr : ptr-tv); 



(* this installs a temp ver at a data od) as per tne action 
of an atomic action. It also copies any cont hists to suo 
trans or/and data oojs or/and temp vers as necessary*) 



VAR 

curcha,curcnt>,fGlcna,folchD : ptr-cn; 
paircn : ptr. ch. pair; 
donum : integer? 

BEGIN (*il*J 

donum := lnst.aa.ptr * . aa.id .do-id ? 
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(♦load che temp vers fields*) 

load tv (donum , ins t-tv-ptr , ins t-s t-ptr , lnst-aa-ptr ) ; 

(♦connect tne conflict histories tor do, tv ana st*) 

( *ao nothing if an cn's are empty*) 

IF not ( (oo.array Cconum) A . ch-ptr * . nxt*.aa-id, 
trans-site, trans-num = 9999) ana 
( lnst-st-ptr* . st-cn-ptr = nil)) then 
BEGIN ( *12* ) 

(♦do if stch not empty and do ch is empty*) 

Ilf ( do.ar ray C donum J *.ch-Ptr'‘.nxt*.aa_ia. 
trans-sl te. trans-num 9999) ana 
( inst-st-ptr*. st-cn-ptr <> nil) T h e n 
BEGIN (*i3*) 

(*lln« cn to do perm*) 

curcha := inst-st_ptr".st-ch_ptr; 

sortoid(curcha,donum); 

(*lin< cn to tv*) 

curcna := Inst-st-ptr* , st-cn_ptr ; 

copy-to-tv(curc ha, inst-tv_ptr,acnum); 

END (*id*) 

ELSE 

(*do if st cn is empty ana do cn is not*) 

IF (do.ar ray [ donum) * , ch-pt r * . nxt* , aa.ia . 
trans-site , trans-num <> 9999) ana 
( inst-st-ptr* . st.cn. ptr = nil) T h E 9 
btGiw ( * 1 4 * ) 

C*lin< do cn to st cn*) 

curcna := do.array laonumj * . cn-ptr* . nxt ; 

copy- to-st (curcna , inst.st.ptr) ; 

END ( * i 4 * ) 

ELSE 

(*tnis if st cn and do cn not empty*) 

IF (do-array [donum]' , .cn_ptr A .nxt*.aa_id. 
trans-site, trans.num <> 9999) and 
( inst-st-ptr* . st.cn.ptr <> nil) Tnc,i\ 
BEGIN ( * 1 5 * ) 

(*lind st cn to tv cn*) 

curcna : = lnst_st-ptr* , st_cn_ptr ; 

cooy.to-tv ( curcna , ins t-tv_ptr , aonum ) ; 

(*copy st cn to do ch*) 

curcna := inst-st-ptr* . st-cn-ptr ; 

sortDld( curcna, ao num); 

(* copy ao cn to st cn*) 

curcna ;= do-ar ray (donum J * . ch_ptr * . nxt ; 

copy-to-s t ( cur cna , ins t-s t-ptr ) ? 

END? ( *15* ) 

END? (*12*) 

END? (*il*) 



: * * * * * ) 
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PROCEDURE cr ea te.temp.ver (cre.aa.ptr : ptr.aa ; 

cre-st-Ptr : ptr.strans; 
cre.tr.ptr ; ptr.trans); 

(* tnis installs a temp version at tne target data ooject 
and places the sup tran's conflict history in the temp 
version, it also up- dates tne conflict histories at 
the data object and at the sue trans *) 



VAR 

temptv , nxt-tv.ptr , cre.tv.ptr ; ptr. tv; 
curaost , curst : ptr-ch; 
i , loop.cnt, donum : integer; 

BEGIN (*1*) 

donum ;= ere. a a. ptr*. aa. id. do. id; 

IF is. at-site (donum) THEN 
BEGIN ( * la* ) 

WR1TELN (audit t 'creating a temp version tor:'); 
*RITE(auait,cre.tr-ptr*.trans.site.init.site : 2 , 
cre.tr.ptr* . trans. s ite . trans. num ; 2); 
wRITE(auait,cre-stI.ptr*,st-ia ; 2); 

WRlTE(auoit, cre.aa.ptr* , aa-ia , aa.num ; 2); 
wK ITE ( auait , cre.aa.pt r 4 . aa-ia . ao.l g ; i ) ; 
wRITELN (audit ) ; 

(♦install NEw temp version and its c n * ) 

IF do-array (donum j “. cv-ptr = nil THEN 

Be.G i N (*2*) ’ (*no tv's at ao*) 

NEw (do.array (donum j * . tv.pt r ) ; 
new ( ere. tv. ptr ) ; 

install tv ( cre.aa.ptr , cre.s t-ptr , 
cre-tv.ptr ) ; 

co-array (donum j A . tv. ptr ;= ere. tv. ptr; 

END (*2*) 

ELSE 

3EGIN (*3*) (*at least one tv at cc*) 

temptv ;= do.array (donumj * , tv. ptr ; 

WHILE temptv*. nxt <> nil DU 
temptv ; = * temp t v * , nx t ; 

NEw (cre.tv.ptr ) ; 

ins tall tv (cre.aa.ptr , cre.s t.ptr , 
cre.tv.ptr ) ; 

temptv*. nxt ;= cre-tv.ptr; 

END; ( * 3* ) 

END (*ia*) 

ELSE 

wftITELN ( 'error ; createtempver called when d.c. not', 
’ ' at site') 

END; (*!*) 



134 






FUNCTION detect-conf ilct (do- id ; integer) ; oooiean; 



( * mis function determines if tne latest temp version 

created has caused a conflict at its data ooject. If so, 
the'ooolean is returned as true; if not, as false. 



VAR 

temp-tv-ptr ; ptr-tv; 
conflict : oooiean; 



BEGIN 

conflict := false; 

temp-tv-ptr ;= do-array (ao-laJ “ . tv-ptr ; 



( * If oldest temp version is a 'white ' and it is not tne 
only temp version tnen tne re is conflict * ) 

IF temp-tv-ptr <> nil THEN 
BEGIN 

If ( ( temp-tv-ptr** . aa-id . r-w-f lq = 'w') ana 
( temp-tv-ptr* , nxt <> nil)) THEN 
conflict ; = ' true 
ELSE 

temp-tv-ptr := temp-tv-ptr** .nxt 
END; (* IF *) 



( * search all remaining terrp versions for a 'write' 
one is found then tnere is conflict ■*) 

WHILE ((temp-tv-ptr <> nil) and (conflict = false)) 
BEGIN 

IF temp-tv-ptr* . aa-id , r.w-flg = 'w' THEN 
conflict :=*true; 
temp-tv-ptr := temp-tv-ptr “. nxt 
END; (* »HIL£ *) 
detect-conf i ict := conflict; 

If conflict Then 

wRIT ELN (audit , 'conflict is detected at ',ao-id 
ELSE 

WRXTELN (audit, 'no conflict is detected at ', 

do-ia 



END; 



if 

DU 



4 ) 



4 ); 



. * * ) 



PROCEDURE detm.conf llcts (do-id : integer; 

VAR curr-cn-ptr : otr-cn); 

( * rnis procedure determines wnicn temp versions conflict 
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wi tn tne most recent temp version and it constructs a 
linKed list of those conflicts, it assumes a 
conflict exists, *) 



VAR 

temp.cn.ptr : ptr.ch; 
temp.pair.ptr : ptr.cn.pair; 
temp.tv.ptr, lastw.tv.ptr : Ptr.tv; 
i : integer; 

BEGIN 

(* determine the conflicting temp versions *) 
temp-tv. ptr : = do. array [do-id J *. tv-ptr ; 
lastw.tv.ptr := temp-tv. ptr ; 
while temp- tv.ptr * • nxt <> nil DU 

BEGIN 

If temp. tv-ptr*, aa-id.r.w. fig = then 

las tw.tv.ptr := temp-tv_ptr; 
temp-tv.ptr : = temp_tv_ptr * . nxt 
END; 

(* construct tne linked list of conflict temo versions 
new (curr-cn_ptr) ; 
temp.cn.ptr := curr-cn-ptr; 
while lastw-tv.ptr <> temp-tv.ptr do 
BEGIN 

temp.cn.ptr * , aa-id ; = ldSiw.tv.ptr*.a<a.id; 
new (temp.pair.ptr); 

temp.cn.ptr * . pa i r-o tr : = temp. pa i r.ot r ; 
temp.pair.ptr* . aa.id := temp. tv. ptr * . aa.ic ; 
temp.pair.ptr*. metric-sum := lastw.tv.ptr* . 

metric-sum + temp-tv.ptr* .metric. sum; 
lastw.tv.ptr := las tw. tv-ptr*. nxt; 

IF lastw.tv.ptr <> temp-tv.ptr then 
BEG I N 

IF temp-tv.ptr* , aa-io . r-w. fig = 'n* THEN 
BEGIN 

new (temp.cn.ptr* .nxt) ; 
temp.cn.ptr ;= temp.cn.ptr *, nxt 

END 

ELSE 

lastw.tv.ptr := temp-tv.ptr 
END (* IF THEN *) 

END; ( * WHILE *) 
temp.cn.ptr* . nxt := nil; 

wRITSLN (audi t , 'conflict history constructed at ',do_ia); 
END; 



’■** ) 
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PROCEDURE find. tv (inlt.site : cnar; 

trans.num , st.num , aa.num , ao.id : integer; 
VaR outptr : ptr.tv); 



(.* This returns a pointer to the requested temp version 
(outptr), It the requesteo temp ver is not tonne the 
outptr is returned nil * ) 



VAR 

curptr : ptr.tv; 

BEGIN (*proc*) 

IF do. array [do.id J *. tv.ptr = nil THEN 
outptr := nil 

ELSE 

BEG I N (*2*) 

(*firid the right tv*) 
outptr := nil; 

curptr := do. array lao-ld j * . tv.ptr ; 

REPEAT C * U n T I L curptr = nil or founa*) 

Ir (curptr*. aa.id. trans-site, 

inlt.site = inlt.site) and 
(curptr*. aa.id. trans.site. 

trans.num = trans.num) and 
(curptr*. a a- id, st. nu m = 
st.num) and 

(curptr* , aa-ia . aa.num = 
aa.nuin) then' 
outptr := curptr 
ELSE 

curptr := curptr A .nxt 
Until (curotr = nil) or (outotr <> mi); 
End; ( * 2 * ) 

END; (*proc find tv*) 



■ ** * ) 



PROCEDURE construct-prec-rel (ac.Id ; integer); 

(*tnis determines current conflicts witn tne newiy aopenaea 
temp version a no aads tnese conflicts to tne do conflict 
history in sorted order and to tne suotrans ana tv cn's*) 

VAR 

con.cn.ptr,tvitv,tvlst ; ptr-cn; 
con.tr.ptr ; ptr-trans; 
con-st.ptr : ptr.strans; 
con.aa.ptr ; ptr-aa; 
con. tv.ptr ; ptr.tv; 
inlt.site : ’cnar; 
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trans. nura , st-num , aa.num , donum : integer; 

BEGIN (*proc constpr*) 

wFITEL.^audit, 'const prec rel at a.o. ',ao.ia); 

con-ch.ptr : - nil? 

aetm.contl icts (do-id,con-ch-Ptr)? 

(*add tne NEW conf nist to the aata od] perm record-*') 
sortDld(con-cn-ptr,ao-ia) ; 
init.site := 

con-ch.ptr * . pair-ptr* , aa-id . tr ans. site. ini t.sit e? 
trans. num := 

con-cn.ptr * , pair-ptr*. aa- id. trans. site. trans- num; 
st-num ;= con. cn. ptr* . pair-ptr* . aa. id . st-num; 
aa.nurn := con-cn-ptr * , oair-ptr * . aa.ld , aa.nurn ; 
donum := con-cn-Ptr*".oair-ptr*.aa-ia,ao-la? 

C*aaa tne new conf hist to the sup trans conf*) 
f ind-aa (init-slte,trans_num,st_nuiTi,i, 

con-aa-ptr , con-st-ptr,con-tr-ptr); 

IF con.st-ptr = nil inEw 
BEGIN 

wrtlTELN (audit » 'attempt to find st tnat oiunoc exist'; 
WRITELN (audit , ' in proc const prec rel')? 
wRiTELN (audit , ml t-s lte , trans-num , s t-num , aa.nurn ) 

END 
ELBE 
3EGI N 

IF con.st.ptr* . st-.cn-.ptr = nil then 
copy.to-stC con-cn-ptr , con-st_ptr ) 

ELBE 

BEGIN 

tvlst : = con-st-ptr * . s t-cn-ptr ? 
while tvlst*. nxt o'nil Dc 
tvist :=' tvlst*. nxt; 
linKbld(con-cn-ptr, tvist) ; 

END? (*IF*) 

END? 

(♦add the NEW conf nist to the temp version*) 
find-tv ( init-si te , trans-num , st-num , aa-num , 
donum, con- tv-ptr)? 

IF con. tv-ptr = nil THEN 
BEGIN 

wRITELN ( audit , 'attempt to find tv that aldnot exist') 
wRiTELN (audit, 'in proc const prec rel')? 

WRITELN ( audit , ini t- site, trans. num, st-num, aa.nurn) 

END 

ELSE 

BEGIN 

IF con-tv. ptr* . tv.cn.ptr = nil then 

copy-to.tv'c con.cn.ptr ,con-tv-ptr,aonum) 

ELSE 
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BEGIN 

tvltv := con.tv-ptr M , tv.ch.ptr; 
WHILE tvltv*. nxt o’nil uQ 
tvltv :=' tvltv* .nxt; 
iinkoidCcon-ch.ptr , tvltv) ; 

END; ( * IF* ) 

end; 

end; (*proc constpr*) 



* ) 



PROCEDURE set.s Cdo.id : integer); 

C* sets s to tne numoer of teir.p vers arter tne 1st write *j 
VAR 

temp.tv.ptr : ptr-tv? 
s : integer; 

BEGIN 

temp.tv.ptr : = do. array tdo-id) * . tv-ptr ; 
s ;= 0; 

C* s*ip over all "read" temp versions *) 

If temp.tv.ptr o’nil THEN 
BEGIN 

WHILE (( temp. tv_ptr* . nxt <> nil) 

ana ( temp.tv.ptr* . aa-ia. r.w.rlg = r r')j uO 
temp.tv.ptr : = temp.tv.ptr * . nxt; 

C* count tne ot temp vers arter tne 1st white *) 

IF temp.tv.ptr *. aa. id . r.w.f lq = 'w' TrtEN 
WHILE temp.tv.ptr* , nxt <> nil DO 
begin 

s ; = s + 1 ; 

temp.tv.ptr : = temp.tv.ptr *. nxt 

END 

end; 

( * save the value in data ooject's permanent record * ) 
do. array tdo.id) * , s.cnt := s; 

wRITELW (auait, 'the value of "s" was set to : ',s ; a) 
END; 



I***********) 



PROCEDURE copy.ch (cn.ptr : ptr.ch; 

VAR rel-ptr : ptr.cn); 
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(* tnls procedure creates a copy of a conflict historv 
passed to it *) 



VAR 

oid-ptr, NEw.ptr : ptr-cn; 

BEGIN 

IF cn-ptr <> nil then 

BEGIN 

NE* (rel-ptr); 

NEW.ptr := rel-ptr; 
old-ptr : = cn.ptr; 

WHILE old-ptr <> nil uo 
BEGIN 

NEw-ptr*.aa-id : = old-otr*,aa-ia; 

NEW (NEw.ptr* . pair-ptr ) ; 

NEw-ptr* . pair-ptr* . aa-io := ola-ptr*. 

pair-ptr*' . aa-id ; 

NEW-ptr* .pair-ptr* .metric-sum : = 

oid-ptr* , pair-ptr * . metr ic_ sum; 
oid-ptr := old-ptr* .nxt; 

IF old-ptr <> nil then 
BEGIN 

NEW (NEW-ptr* . nxt) ; 

N'Ew-ptr := NEH-ptr * . nxt 
END (* IF TnE„ *) 

END* l ♦ WHILE * ) 

NEw-ptr*.nxt ; = nil 

END 

ELSE 

rel-ptr : = nil 

END ; 



;********) 



PROCEDURE detect-non-sr Ccn-ctr : ptr-cn; 

VAR non-sr ; Doolean; 

V a p rel-ptr'; ptr-cn); 



(* This. procedure will determine if there are any cycles in 
the conflict nistory linxed list witn Header ana trailer 
whicn is input to it. If so. tne boolean 'noh-sr' will 
oe true and tne pointer 'rei-ptr' will point to tne 
"minimal" conflict nistory, witn r.eader and trailer wnicti 
contains tne cycle(s). If not, tne’ooolean 'non.sr' 
will ce false. *) 



VAR 

oase-Dtr, lead-ptr, follow-ptr, b Idptr , pr in t-p tr ; ptr-cn 
pbldptr ; ptr-cn_pair; 
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cnange, found : boolean; 
cn.ia ; cn.pair.rect ; 

BEGIN 

(* maxe a cooy of the data ooject's conflict nis tory so 
that it can oe modified 
writeln (audit, 'entering detect-non.sr ' ) ; 
copy-ch (cn-ptr, rei.ptr); 

(* detect cycles oy deleting conflict pairs wnicn couia 
NOT be involved in a cycle - tnose wnose 2nd element 
never appears as a 1st element *) 

REPEAT 

cnange := false; 
oase.ptr := rei.ptr* . nxt ; 
follow-ptr := rel-ptr; 
laad-ptr := base_.ptr? 

while has e-ptr*. a a_ id. trans-site. trans-num <> 9 99 9 ou 
BEGIN 

founa ;= false? 

REPEAT 

lead-ptr := lead-ptr * .nxt; 

Ie (( lead. ptr* . aa, id . trans-site . mit-s ite = 
oase-Dtr A . pair-ptr* . aa-ia . tr ans-s i te . 

init-site) 

and (lead_ptr'*.aa_id.trans«site. 

trans-nun = 

case-ptr*. pair-ptr". a a.ia. trans_site. 

trans-numj ) 

THEw 

BEGIN 

found ;= true? 

leacuptr * . aa-id . cn-seq : = o 

End 

until ((found = truej or 

’ ( lead-ptr * .aa„id. trans-si te . trans-num = 

9999 ) ) ; 



IF found = true THEN 
BEGIN 

follow-ptr : = oase-ptr; 
base-ptr := ’ oase-ptr'*. nxt? 
lead.otr : = rei_ptr 
END (* IF THEN *) 

ELBE 

( * tnrow out all pairs with oase-ptr's 2na 
element = cn-ia *) 
begin 

cnange := true? 
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cn.id . aa-ld . trans-s i te := 

base-ptr A .pair-ptr A .aa-ia.trans_site; 

(* delete pair oase.ptr points to, am 
continue .-novinq base-ptr until rcoe 
is not deleted * ) 
wHlLEC(base_ptr'‘.oalr-ptr A .aa-id. 

' trans-site. init-site 

= cn-ia.aa_id.trans_site. init-site) 
and Coase-ptr " . pair-ptr“ . aa-ia. 
trans-site, trans.num 
= cn-ia.aa-ia. trans-site, 
trans-nurn ) ) DU 
3EGI N 

f ollow-ptr A .nxt := oase-ptr A . nxt ; 
base-ptr : = oase-Ptr A .nxt 
END; (* while ♦) 

C* now searcn from beginninc ot list for 
pairs to tnrow out o 
f oliow-ptr := re i.ptr; 
leaa„ptr ;= rei_ptr*.nxt; 

WHILE lea d-ptr A .aa-iu. trans-site, trans-nurn 
<> 9999 DO 

BEGIN 

IF ( ( lead-P t r A , pa i r-ptr " . aa-id . 

trans-site 

.mit-site = ch-id.aa-id. 

trans_site 

. init-site) and (lead-ptr'*. 

pair-ptr A ", aa_ia 

. trans_site. trans-num = cn-id, 
aa-id . trans_site. 
trans_num)) IHEn 
BEGIN 

f oilow-ptr A , nxt 

ieaa_ptr A . nxt ; 
lead-ptr := lead_ptr A . nxt 
END (* It then *) 

ELSE 

BEGIN 

foilow-ptr := lead-ptr; 
lead-ptr := lead-ptr A . nxt 
END c* If ELSE *) 

END; (* rtrilLE *)' 

lead-ptr := rei-ptr; 
follow. ptr ;= rei-ptr 
END (* IF ELSE *) 

end; (* WHILE *) 



142 



(* If no otner cnanqes nave Deen made ana if trie tirst 
element of a conflict" Pair appears nowhere else, 
tnen throw tnat pair away *5 
IF cnanqe = false THEN 
BEGIN 

follow-ptr : = rel-ptr; 
lead.ptr : = ' rel.ptr * , nxt ; 

WtilLE lead.ptr <> nil EG 

IF lead.ptr*.aa.ia.ch.sea = a then 
BEGIN 

IF lead.ptr* .aa.ia . trans.site . trans.num 
<> 9959 then" 

iead.ptr * . aa.ia . cn. see := l; 
follow. ptr :=’ lead.ptr; 
lead.ptr := leaa.ptr * . nxt 

END 

ELSE 

BEGIN 

f ollow.ptr * , nxt := lead.ptr*. nxt; 
lead.ptr ;= leaa.ptr* .nxt; 
cnanqe :=true 

END 

END C * IF THEN *) 

UNTIL cnange = false; 

(* set the ooolean 'non.sr' *) 

IF r el.ptr * . nxt * . aa.ia , trans.s i te , trans.num = 9999 then 
non.sr := false 
ELSE 

BEGIN 

non.sr : = true; 

wRITELNcaudit , 'detect non sr detected non sr'j; 
wRITELN (. audit , 'cycle is : 
print-ptr := rel.ptr * . nxt ; 
miILE pr int.ptr* ,nxt <> nil DO 
BEGIN 

NRiT£LN(audit, print-ptr*. aa.id. trans-site, 
"init.site ; 2 , print-ptr *. aa.id . 
trans.site.trans.num ; 2 , 
print-ptr * .aa.id . st.num ; 2 , 
print.ptr A . aa.id. aa.num ; 2 , 

' printlptr* , oair.ptr *. aa.id . 

trans-site. init.site ; 2 , 
print-ptr* , pai r.p tr * . aa.ia . 
trans.site.trans.num ; 2 , 
print-ptr * .pair. ptr* .aa.id. 
st.num" : 2 , 

print-ptr* , pair _ptr*. aa.ia, 
aa.num" ; 2 ) ; 

print-ptr ;= print. ptr*. nxt; 
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END; 



END; 

END 



■***) 



PROCEDURE determine-rol lback (rei-ptr ; ?tr-cn; 

var rollback-ptr : ptr-cn); 



(* This procedure, wnen passed a conflict history linxea 
list pointed to by 'rei-ptr', will produce a new linxed 
list of conflict nistory pairs whicn, wnen rolled oecx , 
will eliminate all present cycles. Tne input list oust 
nave a neaaer and trailer, tne output list is built 
witnout tnera, *) 



VAR 

temp-ptr, foliow-ptr, copy-ptr, aad-ptr ; Dtr.cn; 
small ; integer; 
cycle ; boolean; 

3EGIN 

rolloacx-ptr ;= nil; 

( * copy the conflict history linked list * ) 
wRITELn (audit, 'entering aetermine-ro 1 loac< ' ) ; 
ccoy-ch (rei-ptr, cooy-ptr); 

REPEAT 

( * find tne conflict pair with smallest metric-sum * ) 

temp-ptr := copy-ptr 1 * .nxt; 

small : = temp-ptr* , pair-ptr* . metr lc-sum; 

REPEAT 

IE temp-ptr* . pair-ptr *, me t r lc-sum < small Then 
small :=' temp-ptr *'. pair-ptr *. metric-sum; 
temp-ptr ; = temp-ptr 1 * , nxt 
until temp-ptr*. nxt = nil; 

(* delete tne conflict nistory pair with tne smallest 
metric-sum *) 

temp-ptr := copy-ptr *, nxt ; 
rollow-ptr := copy-ptr; 

WHILE temp-ptr* . pair-ptr* .metr lc-sum <> small DO 
BEGIN 

follow-ptr := temo-ptr; 
temp-ptr : = temp-ptr* , nxt 
end; 

foliow-ptr* , nxt j = temp-ptr * . nxt ; 
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( * append tne aeletea pair to the rol loacx list * ) 
temp.ptr* , nxt := nil; 

If rolloacK.ptr = nil ThEN 
BEG IN' 

rolloack.Dtr : = temp.ptr; 
add.ptr : = rollbacx.ptr 

END 

ELSE 

BEGIN 

aaa.ptr*,nxt : = temp.ptr; 
ada.ptr := add.ptr* . nxt 
end; 

C * determine it any more cycles exist * ) 
detect-non.sr (copy.ptr, cycle, cppy.ptr) 

UNTIL NOT cycle 



END; 



( * * * * * * * * ■ 



:******* V) 



j 



FUNCTION is. in. list Unit, site ; cnar; 

‘ trans.num , st-num , aa.num ; integer; 
listptr : ptr.reexec) ; boolean; 

( * tnis returns true if tne incut list memeer is m the list 
ot type re.exec.r ect , raise otherwise *) 



v AH 

curptr ; ptr.reexec; 

begin (*func*) 

is. in-list ;= false; 
curptr := listptr; 

IF curptr = nil Then 
ls.in.lis t ; = raise 
ELSE 

BEGIN C ••ELSE* ) 

repeat (*until curptr « nil*) 

IF Ccurptr* . init-site = lnit.site) and 
(curptr* . trans.num = trans.num) and 
( curptr* . st-num = st.num) and 
C curptr *. aa.num s aa.num ) THEN 
ls-in-list := true; 
curptr := curctr*.nxt; 

UNTIL curptr * nil;' 

END; (*EL3£*) 

END; ( *t unc is. in. list*) 
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; * * * x 



* * * ) 



PROCEDURE ch-dispose (var head-ch-ptr : ptr-ch); 

(* This procedure will release un-needed storage space so 
that it may later oe used again. It does so tor rolled 
bacK conflict ’ histories . *) 



VAR 

ch-ptr : ptr-cn; 

BEGIN 

wHILE nead-ch-ptr <> nil DO 
BEGIN 

ch-ptr := heaa-cn-ptr; 
nead-ch-ptr := nead-cn-ptr * . nxt ; 
DISPOSE (ch-otr*,pair-ptr) ; 
DISPOSE (cn-ptr) 

END 

END; ( * ch-aispose *) 




procedure rollback_cn (lnit-site ; cnar; 

trans-num, st-num, aa-num : intecer; 
from-commit j'oooiean); 



( * This procedure will remove conflict histories from 
throughout the database, if called from the commit 
procedure, all ch's will be removed for tne committing 
trans - identified oy its init-site ana trans-nun , If 
caliec from rollcacx, a list of cn pairs will nave seen 
nur.g on tne purge-iist-ptr . *) 



: * * * * * ) 



PROCEDURE purge-cn (var nead-cn ; ptr-ch; 

pg-ptrtocn ; ptr-cn; 

VAR holo-ptr ; ptr-cn); 



( * this removes tne ch pair member pointed to oy og-ptr toon 
from tne list pointed to cy neaa-ch*) 



VAR 

tvl-ch : ptr-cn; 

BEGIN (*purge ch*) 

IF nead.ch <> nil then 
BEGIN (*!*) 
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pg.otrtocn Then 



If heaa.cn = 

BEGIN 

heaa.cn := pg-ptr tocn* . nxt ; 
ncia.ptr := pg.ptrtocn* ,nxt; 
pg.ptrtocn* , nxt := purge.iist.ptr ; 
porge.list.Dtr := pg.ptrtoch; 

END 

ELSE 

BEGIN C*2*) 

tvl.cn := neaa-ch; 

while tvl.ch*tnxt <> pg.ptrtocn Du 
tvl.cn : = tvi.cn* . nxt ; 
tvl.ch*,nxt := pg.ptrtocn* . nxt ; 
hold.ptr := pg.ptrtocn*. nxt; 
pg.ptrtocn* . nxt : s purge.list.ptr ? 
purge-list. ptr := pg.ptrtocn 
END 1*2*) 

END (*1*) 

END ; (*purge cn*) 



) 



PROCEDURE purye.conmit 



CVAR neaa.cm.cn 
'cm.init.site : 
cm. trans.num : 



: ocr.cn; 
cnar ? 
integer); 



(* this finds all the cn members in the list pointed to oy 
head.cm.cn whicn nave identifiers tne same as tne 
ini t.si te and trans.num and removes tnem from tne 
list Dy calling purge. ch *) 



VAR 

purge.cm.flg ; poolean; 
hold. cm. per , tvl.pr.cm ; ptr.cn; 

begin (* purge commit *) 

IF nead.cm.cn <> nil THEN 
BEGIN (*!*) 

tvl.pr.cm ;= nead.cm.cn; 
purge.cm.flg := false; 
rtHlLE tvl.or.cm <> nil DO 
BEGIN ( * 2 * ) 

If c tvl.pr.cm*. aa. id. trans.site. init.site = 
cm.init.site) and ( tvl.pr.cm* , aa. id . 
trans.s ite . trans.num = cm. trans.num) l'HtN 
BEGIN 

purge.cnCnead.cm.cn , tvl.pr.cm , 

hold-cm-ptr ) ; 
purge.cm.fig ;= true; 

tND 

ELSE 
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IF (tvl-pr-c w'*, pair _ptr~.aa_id.tr a ns.sice. 
lnit-site - 

cm.inlt-site) ana ttvi_pr_cm~. 
pair_otr~, aa_id, 

trans-site , trahs-num = cn-trans-num ) 
TriE N 

BEGIN 

purge-.cn i heaa_cm_cn , tvl-pr-cm , 
hold_cm„ptr ) ; 
purge-cm-flg := true, 

END; 

IF purge-cm-f lg InEh 

tvl_pr_cm := nola_cm_ptr 
ELSE 

tvl_pr_cm ;= tvl-pr_cm~ ,nxt; 
purge-cm-flg ; = raise; 

End (*2*) 

END (*1») 

end; (* purge commit *) 



:******** * ) 



PROCEDURE purge-roi lpacK (VAH nead-rl.cn : otr_cn; 

rl-lnit-site : cnar; 
rl_trans_num,rl_st_num, 
rl-aa-num : integer); 



(* tnls finds all trie cn members in the list pointed to ov 
head.rl-ch whicn nave identifiers tne same as tne 
i-nit-site ana trans-num and st-num ana aa.r.um 
and removes tnem from tne list oy calling curge-cn *) 



VAR 

purge.rl-flg ; ooolean; 
nola-rl-ptr , tvi-pr.r l ; ptr-cn; 

BEGIN (* purge rolloacK *) 

Ir nead.r 1-cn <> nil THEN 
BEGIN (*!*) 

tvl_pr_rl ; = nead-rl-ch ; 
purge-rl-flg ;= false; 
rtHiLE tvl-pr-rl <> nil do 
begin (*2*) 

IF Ctvl.pr_rl*.aa_ia. trans-site, init.site = 
rl-lnit-site) ‘and ( tvi-pr-ri* . aa_id, 
trans_s i te . trans-num = r 1-trans-num) and 
(tvl-pr-rl*. aa-id. st-num = rl-st-num) and 
( tvl-pr-rl *. aa-id . aa.num = rl-aa—num) TnEu 
BEGIN 

purge- cnChead-rl-cn,tvi.pr-rl, 

nold_r 1-ptr ) ; 
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Durge.rl.f Ig : = true ; 

END 

ELSE 

IF (tvl.pr.rl‘'.pair.ptr , '.aa_id.trans_sii: s 
init. site's 

rl.init.site ) ana ( tvl.pr.r 1* . 
pair.ptr*. aa.id. 

trans.site. trans.num = r l.trans.nurn ) 
and c tvi.pr-ri".pair.otr < * .aa.ia. 
st-num = ri-st-nuno ana l tvl.pr.r 1" . 
pair. ptr‘'.aa.ia„aa-n urn =’ r l-aa.num} 

I HEN 

Bt-GIN 

pu r g e_cn (nead.r l.ch , tvi.pr.ri, 

noid.r l.ptr ) ; 
purge_.ri.tiq : = true; 

END? 

IF purge.rl.flg THEN 

tvi.pr.ri := noia.rl.ptr 
ELSE 

tvi.pr.ri := tvl-or.rl* .nxt; 
purge. rl-iig := faise; 

END (*2*) 

END (»1*) 

END; (* purge rolloacK *) 



; * Z * * * 5. x * 



PROCEDURE purge.tr.cn Cpg.init.site ; cnar; 

' pg.tr ans.num , pq.st.num , 
pg.aa.num : integer; 
tr.commit : boolean); 

( * tnis removes tne cn's from the wno le transaction ana 

suotransaction structures wnicn nave tne same oarameters 
as tne Input in 1 t.s 1 te , trans-num , s t.num and aa.num, 
it tr.com mit is true, tne call came from tne commit 
oroc, If false tne call came from tne rolloacK*; 



VAR 

tr.nead , st.neaa : ptr.ch; 
tr.tvl : ptr.trans? 
st-tvl : ptr.strans; 

BEGIN (* purge tr cn O 
IF trans.ptr <> nil THEN 
BEGIN (*1*) 

tr.tvl ;= trans.ptr; 
while tr.tvl <> nil Du 
BEGIN (»2*J 

IF tr.commi t THcN 



purge-commitCtr-tvl*',trans_cn_ptr, 

pg-init-site,pg-trans_num) 

ELSE 

purge. rolloacK(tr_tvi'‘.trans.cn-otr, 

Pg-init-site , pa.tr an s.n urn , 
pg.s t-nuro , pg.aa.num ) ; 
st-tvl : = tr-tvi* . s t-ptr ; 

While st-tvl <> nil ou 
BEGIN (»3*) 

IE tr-commit l'HcN 

purge -com mitt st.tvi*, st-ch_ptr, 
pg-init-slte,pg.trans_num) 

ELSE 

ourge-roilDac<ist-tvi*. st.cn. per, 
pg-init-site , pg.trans.num , 
pg-s t-num , og-aa-num ) ; 
st-tvl := s t-tvl* . nxt ; 
end; C*2*) 
tr-tvi : = tr-tvi* . nxt ; 

END ( *2 *) 

END (*!♦) 

end; (* purge tr cn *) 



PROCEDURE purge-do-cn Cinit-site : cnar ; 

trans.num, s t-num, aa.num : integer ; 
dc-t rcm. commit : ooolean); 

( * tnis * i 1 1 purge a conflict nistory laentiriea oy aa_ia 
elements from ail d.o.'s ana all temp versions *) 



VAR 

1 : integer; 
tv-ptr : ptr-tv; 

3EGIN 

FOR i := 1 10 99 DO 

IF do-array til <> nil then 
BEGIN 

( * purge this cn from the d.o, oerm * ) 

IF do-f rom-commit I’hEN 

purge-commit Cdo-array LU A .cn.ptr, 
init-site, trans-num) 

ELSE 

purge. rollbacK Coo-array [ i J * . cn.ptr , 

’ I nit. site, trans.num, 
st-num, aa-num); 

(* purge this cn from all tv's at this d.o. * ) 
tv.ptr := ao. array til *, tv.ptr? 
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while tv.ptr <> nil QQ 

BcGIN 

IF do-rrom.commit THEN 

purge. coni. Tilt (tv_ptr'‘.tv_ch_ptr, 

inlt.site, trans.num) 

ELSE 

purge. rollbacK (tv.ptr*. tv.cn.ptr, 

’init.site, trans.num, 
st.num, aa.nurb); 
tv.ptr := tv.ptr*. nxt 
END (* WHILE *) 

END (* IF THEN *) 

END; (* purge^ao.cn *) 



X * J 



(* main for rollDacK.cn *) 

Begin 

IF t rom.commi t THEN 
BEGIN 

wRITELN (auait, 'rollbacK-cn is removing cn ! ’s tor', 
' commit'); 

purge.tr.cn (ini t. site, trans.num, u,u, from. commit) ; 
purge.do.cn (init. site, trans.n urn ,0,0, from. comm it) 

END 

ELSE 

BEGIN 

NFITELN (audit, 'rolloacK.cn is removing cn"s for', 
' rolloack'); 

purge.tr.cn (inlt.site, trans.num, st.num, aa.num, 
f rom.commi c ) ; 

purge_do.cn (inlt.site, trans.num, st.num, aa.num, 
from. commit ) 

END (* IF ELSE *) 

END ; (* rollbacK.cn *) 



; * * * * * ) 
;***********) 



PROCEDURE release. locK (ao-id : integer; 

‘rel-aa.ptr ; ptr.aa); 

(* tnis procedure will release ail Iocks nela oy tne 
currently executing atomic action *) 



VAR 

curr.ptr : ptr.dic; 
dummy.st.ptr : ptr.strans; 
dummy.tr.ptr : ptr.trans; 
nxt-aa.ptr : ptr.aa; 
rel. dispose. ptr : otr-locK-q; 
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BEGIN 

rel-aa-ptr*. have-lock := false; 

IF do-array Cdo-id] * , lock-q-ptr <> nil THEN 
BEGIN 

C* find aa at front of lock queue + cnange its 
lock flag *) 

WITH do. array Ido-id J " . xock-q-ptr * , aa_iu or) 
find-aa ( trans-site. init-site , ' 

* trans-site . trans-num , 
st-num , aa-num , nxt-aa-ptr , dummy-s t-ctr , 
dummy-tr-ptr ) ; 

IF nxt-aa-ptr <> nil THEN 
BEGIN 

nxt-aa-ptr* . nave-lock := true; 
nxt-aa-ptr* . in-locKq-t lg ;= false; 
nxt-aa-ptr* . step-num := 3 

END 

ELSE 

a' R l T E L N (audit, 'aa-id not found C re lease_l oc,< ; 

C* call find-tv and send containing tne tv to eacn 

site wnere tne a.o, is replicatea *) 
with do-array Cdo-id) *. lock-q-ptr* . aa-ia DO 
BEGIN 

*HITE (audit , 'release lock '); 
wkITELN (audit, 'removed from lock queue : 
whITE (auait, trans-site. init-site : 2); 

WHITE (audit, trans-site. trans-nun : 2); 
white (audit , st-num : 2); 

WHITE ( audit , aa-num : 2); 
whITELN ( audit) ; 

(* remove aa from front of lockq + rollback 
it's cn's *) 

rollback-cn (trans-site. init-site, trans-site 
trans-nu. ti , s t-n urn , aa-num , false ) ; 

end; (* witn *) 

rel-dispose-ptr := do-array Ldo-idj * . iock-q-ptr ; 
do-arrayCdo-idJ*.lock-a«pcr _ := 

do-array Cdo-id J * . iock-q-ptr* . nxt ; 
dispose ( rel-dlspose-ptr ) ; 

END (* iF'TnErt * ) 

ELSE 

BEGIN 

(* release locks at eacn site a.o. is repiicaceo 
at -’after first installing tne corresponding 
tetiiD version * ) 

curr-ptr ;= dic-array Cdo-ia] ; 
wriiLE curr-ptr <> nil Du 
BEGIN 
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END; 



END 



IF curr-ptr* . slte-io = 

dic-array lu] “ , site„ia ihc-n 

BEGIN' 

do_array ido-id j * , locK := false 
WkIIELn ( auait , 'release lock for 



END 

ELSE 



U , O , i 

d o « i ci ) ; 



C* send msg to repllcatea site - 

curr-ptr*. site-id to 1st install a tv, 
tnen release tne lock *) 

WRITELN (audit, 'release lock for a.o. 

do-id : 2, 

' at site ', curr-ptr~ . site-la) ; 
curr-ptr := curr-ptr * . nxt; 

END C* wtilLE *) 

C* IF ELSE *) 



: * * * * * * ) 



PROCEDURE rollcack dnlist-ptr : Dtr-cn; 

var roll-cn-ptr : ptr-chj; 

(*tnis rolls oack any atomic actions wnich appear m tne 
list pointed’ to oy inlist and any atomic actions in 
tne same suo transaction whicn follow tne roiled oa ck 
atomic action. Any temporary version ouilt oy tne rollea 
oack atomic actions are deleted ana any temporary versions 
cased on tne' temp ver whicn was aeletea are also aeletea 
and tneir atomic actions are rollea oacki tne output 
pointer points to the list of atomic actions wnicn must 
oe executed cefore any otners are allowed to execute, 
tne input list will not De empty when tnls oroc is calieo. 
no neaders or trailers on any output list, a list or 
conf nlstories from rolled oac< teirm vers ls'aiso 
output . * ) 

LABEL 1 ; 

VAR 

isatv,okaafig,oktvf lg, f irst-rol-f lg,ok-flg ; ooolean; 
isite : cnar; 

i,tnum,stnum,aanum,doid : integer; 
incnptr : ptr-cn; 

folrolptr,nurolptr,nureptr,toioreptr, 
currol , rollDack-ptr , re.ptr : ptr-reexec; 



(♦ procegures tor roiloack *) 



PROCEDURE rollback.aa (init-site : cnar; 

trans. num , s t.num , aa.nun : inteuer; 
VAR okaaf lg, isatv : booieanj; 

(*This rollsback atomic actions founa on the rolioacx list. 
If any successor atomic actions need to oe roiled oac< 
due to rolling an aa back , tne successors are placed at 
the end of tne roll- back list, 'I he t(r) Quantities are 
also adjusted at tne suo trans and trans as necessary. 

If tne atomic action is in tne Iock queue it is removed 
and iastv is set to false*) 



VAR 

rollo-aa.ptr : ptr.aa; 

nurolptr, tvlptr : ptr-reexec; 

ptrtotv : ptr.tv; 

donum : integer; 

findptr , curptr ; ptr-lock.a ; 

rollo-st.ptr ; ptr.strans; 

rollo.tr. ptr : ptr-trans; 



(* proc for rollback. aa *) 



PROCEDURE t lna.loc.a.memo Cinitsite ; cnar; transnurn, stnum, 

aanurr.,doia ; integer; 

VAR curptr ; ptr.lock.u); 

(*tnis proc returns tne pointer to a metnoer of tne ioc< 
queue at aoic with tne attrioutes input to tne oroc, if 
it cannot rind the memoer it returns a nil in curotr*) 

VAR 

tvlptr : ptr.lock.q; 

BEGIN (*rind loc q memo*) 

tvlptr := do-array Caoid) *, locx.q.ptr ; 

IF tvlptr s nil THEM 
curptr : = nil 
ELSE 

BEGIN C*l*) 

curptr ; = nil ; 

REPEAT ~ (*until tvlptr = nil or found memoer*) 

IF (tvlptr*. aa.id. trans-site, 

ihlt.site = initsite) and 
(tvlptr*. a a. id. trans. site. 

trans. num = transnurn) and 
( tvlptr* . aa-ia . st.num = stnum) ana 
( tvlptr* . aa.io . aa. num = aanun) T h E N 
curptr ; = tvlptr 
ELSE 
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tvlptr := tvlptr*. nxt 
UNTIJu (tvlptr = nil) or Ccurptr <> nil) 
END? C*l*) 

end? (*£ind loc q memoer*) 



* a * * ) 



BEGIN (*proc rollback. aa* ) 
rollo.aa.ptr := nil? 

flna.aa(init-site,trans-num,st-num,aa.nur:i, 

ro UP. aa.pt r , rollb.st.pt r , rollo.tr.ptr ) ; 

IF rollb.aa.ptr = nil THEN 
oxaaflg := false 
ELSE 

BEGIN (*1*) 

IF (rolib-aa.ptr*.nave-iock) then 

release, lock ( r ollD.aa.ptr* . aa.io . ao.ia , 

' rollo.aa.ptr ) ; 

okaaflg := true? 

wRITELN ( audit , 'rolling pac< atomic action :'); 
*RITE( audit , init- site : 2); 

•vRXTECaudit, trans.num : 2); 

«RITS( audit , st.num : 2)? 

*PITE(audit ,aa.num : 2); 

•vRITELN (audit) ? 

( * IF tne atomic action to rolloack was in steo l ^ 
aajust tne tin qtys in tne sub trans anu 
Dossibly tne trans *) 

IF rollo.aa.ptr " . step-num = 14 then 
BEGIN 

IF rollb-st-ptr* .aa.fin.aty = 

r6lie.st.ptr*.aa_qty THurt 
rollD-tr-ptr * . st.fin.qty := 

rdiio.tr.pcr * . st.tin.qty - l; 
rollb-.st.ptr* .aa.f m-qty : = 

rolis-sc.ptr* .aa.tin.qty - l; 

END? 

(* It tne atomic action owns a t(r) tens version 
tnen adjust tne quantities at tne sud trans 
and trans as necessary*) 
flnd-tv (init- site, trans. num , s t.num , aa.num , 

’ r ollb.aa.ptr * .aa.id.do.id.ptrtotv)? 

IF ptrtotv <> nil then 

IF ptrtotv* . stat-f la = 'r' THEN 
BEGIN 

IF roliD.st.ptr* .aa.tr. aty = 

roilo.st.ptr * . aa.aty Then 
rollo-tr-ptr*. st-tr.qty := 

rol lD.tr.ptr * . st.tr.qty - i; 
rollp.s t-ptr* , aa.tr.qty := 

roliD.st.ptr “ , aa.tr.qty - i 
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end; 

(*If tne atomic action is in tne ioc.< queue, 
remove it*) 

donum := roilb.aa-ptr~.aa. la, cio.la; 

IF rcllb.aa.ptr~.in.l6cxq.tlg the.\ 

*ITH rollb.aa.ptr ~ . aa-ld DU BEGIN 1 * 1 . 5 *) 
f lna.ioc.q.memo (trans-site. lmt. site, 

’trans-site. trans.num, 
st-num, aa.num, ao.ia , curptr ) ? 
IF curptr <> nil the.n 
BEGIN (*l,b*) 

rollbacK-cn (trans-site. init. site, 
"trans-site. trans.num, 
st.nutr, ,aa.num, raise) ; 
rtRIXECaudit, 'rolloacK.aa Is removing'); 
wRIT£LN(a'uait,' aa irom ioc.< q :'j; 
*HlTELN(audit,trans-site.init-site ; n, 
trans. site. trans.n urn ; 4, 
st-num ; 4, aa.num ; 4); 
lsatv ;= false; ' 

IF do. array [donum J ~ . iocx.a.ptr = curotr 
THEN 

do.ar ray idonum j ~ . loc<.a.ptr ; = 

ao.array[aonum)~.iocK.a_ptr~.nxt 

ELBE 

BEGIN (*1.7*) 

finaptr := ao. array (aonumj * . 

locx.q.otr ; 

*nlLL finaotr~,nxt <> curptr DU 
tindptr : = ‘ tinaotr* . nxt ; 
finaptr~.nxt := curptr*. nxt; 

END (*1.7*) 

END ( * 1 . b * j 
ELSE 

oEGIN ( * 1 . o * ) 

« H I T EL N (audit, 

'rolaa railed tc tnd roc memo', 
trans.site. mi t. site : 4, 
trans.site, trans.num ; 4, 
st-num ; *, aa.num ; 4); 
wKXTELN (audit) ; 

END; ( * 1 . o * ) 
end; (*1.5*) 

(♦reset fields in rolled oacfc atomic action*) 

rollo.aa.ptr~ .aa. id. cn-seq : = o; 

rollo.aa.ptr~.stat ;= 'x'; 

rollD.aa.ptr~ , step.num ;= 0; 

rollo.aa.ptr~ . time. vai : = -i; 

rollD.aa.ptr~ . m.loc.<q.f lg ;= false; 

rollo.aa.ptr ' := rollo.aa.ptr~ .nxt; 

WHILE rollb.aa.pcr o ' nil Du 
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oEGIn (*2*I 

(*fina and send to roilcacK list any atomic 
actions which executea after the roilcj 
oacK atomic action*? 

If roiib.aa.ptr* . s tep.num <> o then 
BEGIN (*3*? 

IF NOT is.in-1 i s t t ro 1 lb.aa.p t r * . aa.ia , 

trans.s i te , 

Ini t- site, roll b.aa_ptr*.aa.ia. 

trans-site . 

trans.nuir., roi io_aa.pt r* . aa.io . 

st.num. 

roiib.aa.ptr * . aa.ia . aa.nurr. , 

rollbacK.ptr ) THt.'i 

BEGIN c * J 

new cnurolptr ) ; 
nurolptr*. in it.site := 

roiib.aa.ptr*. a a. id. 
trans.s ite.imt.site; 
nurolptr * . trans.nun : = 

roll o.aa.ptr". aa.io, 
trans.s l te . trans-nun. ; 
nurolptr* , st.num := 

roiio_aa.ptr~.aa_ic. 

st.num; 

nurolptr *, aa.num := 

roiib.aa.ptr* , aa.ia . 
aa.nurr' ; 

nurolptr * .do. id := rollb.aa.otr~, 
aa.ia. ao.ia; 
nurolptr*. nxt := nil; 

IF rciloacx-Dtr = nil THEN 
roil oacK.pt r := nurolptr 
ELSE 

BEGIN t*b*) 

tvlptr := rol ltacK.ptr ; 
while tvlptr*. nxt <> nil u Q 
tvlptr := tvictr*.nxt; 
tvlptr*. nxt := nurointr; 
ENo; ~ ( * 5 * ) 

END? C*4*J 

roilD-aa-ptr := rolic.aa.ptr* . nxt 

END (*3*) 

ELSE 

roilb.aa.ptr := nil; 

END? (*2*) 

END; (*1*) 

END; ( *proc rollbacxaa*) 
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PROCEDURE rollback. tv (inlt.site : cnar; 

'trans.num,st.num,aa.num, 
do.id : integer; 

VAR oKtvfig : boolean); 



(♦this rollsback a temp version as a result or tne temp 
versions atomic action oeing in the roiloack list 
IF there are suDsequent temp vers cased on tne rolioack 
candidate tney are placed on tne rolioack list for 
future roiloack*) 



VAR 

Dtrtotv , curotr , tv. dispose. ptr ; ptr-tv; 

rolPtr ; ctr.reexec; 

tviptr ,nurol?tr ; ptr.reexec; 

donum : integer; 



(* proc for rolioack. tv *) 



I***********) 



PROCEDURE copy.to.roil.cn (curptr ; ptr.cn); 

(♦this copies the list of ccnf hist pointed to oy curotr to 
a rolioacK list pomtea to oy roi l.cn.ptr * ) 

VAR 

tviptr ; ptr.ch; 

bEGIN (♦proc copy to roll cn*) 

IF roll. ch -ptr = nil THE h 
roll. ch. ptr := curptr 
ELSE 

BEGIN (*!*) 

tviptr ;= roll.cn.ptr; 

*HIL£ tviptr*, nxt <> nil DO 
tviptr := tviptr*. nxt; 
tviptr*, nxt ;= curptr; 
end; (*i*) 

END; (*proc copy.to.r ol 1-ch* j 



: * * ** * * ) 



BEGIN (*proc rolioack. tv*) 

find.tv(init.site,trans-num,s t.num , aa.num , do.id, ptrtotv); 
IF ptrtotv = nil THEN 
oktvfig := false 
ELSE 

BEGIN (*2*) 

oktvfig ;= true; 

aRITELh ( audit , 'roiling pack temp version 
*>RIT£(audlt f init.site ; 2); 
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*RITE(auait , trans.num : 2); 
wRITE ( audit , st-num : 2); 
wr<ITE(audit,aa-num : 2); 
wRITELN ( audit ) ; 

curptr := do. array Ido. id) *. tv. ptr ; 

(*the case where the rollback temp ver is tne only 
one in tne list'*) 

IF (curptr = ptrtotv) and ( ptr totv* . nxt = ml) inen 
BEGIN 1*2.5*) 

IF ptrtotv <> nil ThEN 
DISPCSE(ptrtotv) ; 
do. array (do.iaj ". tv.Dtr : = nil; 
copy.to.roll.cn ( ptr to tv* . tv.cn.ptr ) ; 

END (*2,b*) 

ELSE 

BEGIN C *3* ) 

(*tne case where the rollback temp ver is tne 
first member in tne list--ouila a aunmy 
first member so you can handle it like 
the general case*) 

IF curptr = ptrtotv In Eh 
BEGIN C *3 • 1 * ) 

donum':= curptr" .aa. la ,ao. la; 
ne.k (curptr) ; 

curptr*. aa. id. trans.site.init. site ;= 

'x ' ; 

curptr*. nxt := ptrtotv; 
do.ar ray (aonudi J " , t v.ptr := curotr? 
end; ( *3 . 1 * ) 

(*hanale the general case *nere tne rollback 
temp is imoeaaea in' tne list*) 
while curptr*. nxt o ptrtotv do 
curptr curptr*. nxt; 
curptr*. nxt ;= ptrtotv*. nxt; 
copy.tb.roll.cn (ptrtotv* . tv.cn.ptr ) ; 

IF ptr totv* . aa-id . r.w.fig <> 'r' ihln 
BEGIN (*3.5*) 

(♦rollback subsequent temp vers*) 
while curptr*. nxt <> nil CO 
BEGIN (*3.o*) 

If ptrtotv <> nil then 
dispose. (ptrtotv) ; 

IF NOT ls-in-list (curptr* . nxt* .aa. la . 

trans.site . 

ini t-si te , cur ptr* . nx t* . aa.ia . 

trans.site . 

trans.num,curptr*.nxt*.aa.id. 

st.num , 

curptr*. nxt*. aa. id. aa.num , 
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rolioac<_ctr ) 



ire. ii 

BEGIN (.*•**) 

'MEw Cnurolptr ) ; 

nurolptr ** . inlt.s 1 te := curptr** . nxl ~ . 

aa.id.crans.site.inic.site; 
nurolptr ~ , trans.num : = curctr" . nxt* . 

aa.ia. trans.s ite. trans.num; 
nurolptr **. st.nuni := curptr* . nxt“ . 
aa.ia . st.num; 

nurolptr ~ . aa.num := curctr~ . nxt* . 
aa.ia . aa-num; 

nurolptr"'. do. ia := curocr'.nxi*. 

aa.ia . ao-ia ; 
nurolptr". nxt := nix; 

IF roi loack-ptr = nil Tt-.£N 

roliDacx.pcr := nurolptr 

ELSE 

Begin c * b * ) 

tviptr := rolibacx.ptr ; 
wnluE tvlpcr * . nx: <> nil uO 
tviptr : = t v i p t r * . n x c ; 
tviptr**. nxt := nuroiptr; 
eno; C*S*3 

END; C*4*J 

copy.to.roii.cn (curotr** . nxt" . 

tv.cn. ptr ) ; 

tv. Dispose. oc r := curptr".nxt; 
curptr**.nxt := curpcr".nxt".nxt; 
DlSe'USc.(cv-aisPose.pcr); 
end; (*l,b*j 
END; C*3,b*) 

END; (*J«J 

(*cut out dummy record IF it exists*; 

IF cur ptr " , aa.id • trans.s 1 te . ini t.s ice = r x' then 
do.ar r ay laonumj **. tv.pt r : = curptr".nxt; 

END; C *2* J 

END ; (*proc rollbacK-tv* ) 






BEGIN (*proc rolloacx*; 

roll.cn.ptr : = nil; 
first. roi. tig := true; 
lncnptr ;= inlist. ptr; 
rollDacx.ptr ;= nil; 
i : = 1; 

REPEAT C*until lncnptr = nil*) 

C*ioad tne re exec list witn the data from the cn 
pair rec*j 

IF NOT is-in-list l lncnptr** . pair. ptr* , aa.ia . 

trans.s ite. in it. site. 
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incnptr * .pa ir-ptr* .aa_i a . 
trans-site.trans-nuin , 
incnptr*. pair-ptr*.aa_ia.st_:iu'i, 
incnptr*.pair-ptr*.aa-ia.aa-nur:i, 
reexec-ptr) THEN 

BEGIN ( * I F 1*) 
new ( nureptr) ; 

IF reexec-ptr = nil T.-iEN 
BEGIN ( * , 5 * ) 
foloreptr := nureptr; 
reexec-ptr ;= nureotr? 

END ( *, 5* ) 

ELSE 

BEGIN C*l») 

foloreDtr := reexec-ptr; 

WHILE foloreotr*,nxt <> nil Do 
foloreptr : =’ f olcreptr* . nxt; 
foloreptr*. nxt := nureotr; 
foloreptr' ;= nureptr; 

End; C*l*) 
nureptr * . nxt := nil? 

nureptr* , init-s ite := incnptr * . pal r-otr * . 

aa_id . trans-s i te . ini t-si te ; 
nureptr *. trans-num := incnptr*. pair-ptr*. 

a a- io. trans-site. trans-num; 
nureptr* . st-num ; = 

incnp tr * , Dair-ptr * . aa-id . s t-num ; 
nureptr* .aa-nuro := 

incnptr*, pair-ptr*. aa_ id. aa-num; 
nureotr * , ao-ia ;= 

incnptr*,Ddir„ptr*.aa-ic.ao-id; 

END? C*IF 1*) 

( *load tne rolloacx list with data trom tne cn 
pair rec*) 

IF NOT 1 s-in-li st ( incnptr* . pa lr-ptr* . aa-ia , 

tra n s -site. -ini t- site, 
incnptr*,pair-Dtr*.aa-id. 
trans-site, trans-nuro, 
incnptr*. pair-ptr*. a a- id. st-num, 
incnptr*. pa ir-ptr*. aa-id, aa-num, 
roi lDacK-ptr ) THEN 

BEGIN C*IF 2 * ) 
new ( nurolptr ) ; 

IF tirst-roi-f lg then 
BEGIN 

rollback-ptr : = nurolptr; 
folrolptr ;= nurolptr; 

END 

ELSE 

BEGIN (*1*) 

folrolptr* .nxt ;= nurolptr; 
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folrolptr : = nurolptr 
end; (*i*) 
firs t.roi. fig := false; 
nurolptr - . nxt ;= nil; 

nurolptr*. init. site := inchptr - . pair-Ptr - . 

aa.ia. trans.site, init.site; 
nurolptr * . trans.num ;= inchptr * . pair-ptr - . 

aa.ia. trans_site.tr an s _nufh; 
nurolptr - . st .rum ;= inchptr - . pair. per - . aa.ia 

st.num;’ 

nurolptr - . aa.num ;= incnptr - . pair.otr - . aa.ia 

aa.num ; ' 

nurolptr - . a o-ia := incnptr - . pair-ptr - . aa.ia. 

do.ia ; 

END? (*1F 2 *) 

(♦load tne rollback list with data from 
tne cn rec*) 

IF NOT ls.in.list ( incnptr - . aa-ia . trans.si te. 

init.s i te , 

incnptr - .aa-ia.trans_site. 

trans.num, 

incnptr - . aa-ia, st.num, 
incnptr - . aa-i a . aa.num , 
rolloaCK.ptr ) ThE.n 

BEGIN (♦IF 3 *) 

NEwcnurolptr); 

Ir first.rol.fig irfc.N 

BEGIN 

rolloac<_ptr ; = nurolptr; 
folrolptr := nurolptr; 

END 

ELSE 

BEGIN (*1*J 

folrolptr - . nxt : = nurolptr; 
folrolptr' := nurolotr 
End; (*l*) 
tirst.rol.flg := raise; 
nurolptr - .nxt := nil?’ 
nurolptr - . inlt.site ;= inchptr - , 

aa.ia. trans.site. ini t_ site; 
nurolptr - . trans.num := incnptr - , 

aa.ia, trans.site, trans.num; 
nurolptr - . st.num ;= inchptr - . a a. la. st.num; 
nurolptr - . aa.num ;= incnptr* .aa.ia. aa.num; 
nurolptr*. do.ia := incnptr - ’. aa_id.ao.id; 

END? ( ♦IF 3*) 
incnptr ;= incnptr - . nxt ? 
until incnptr = nil; 
currol := rolioacK.ptr ; 

REPEAT ( ♦UNTIL currol = nil*) 

oKaaf lg : = false; 
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oKt vfilg ; = false ; 
isatv := true; 

(*IF this atomic action Is not from this site, rac.Xuue 
tne roll- oac.< msg and send It to tne lnit site 
of the aa do not roll it or any temp vers 
oacK at tnis site at tnis time otherwise, rolioac.^ tne 
aa and tne tv*) 

rolioack-aa(currol*.init-site, 

'curroi*, trans-n urn, 
curroi* , st-num , 
curroi* , aa-num , 
oxaar lg, isatv) ; 

( * purge tne system of this aa " s ch " s * ) 
rollbacx_ch(curroi*,inlt-site, curroi", trans. hum, 

' curroi * , s t.num , cur rol * . aa-num , false); 

(*lf the atomic action most liKely created a temo ver, 
tnen roll it bacx*) 

IF isatv THEN 

rol ltacX.tv( cur rol* , i nit-si te , 
curroi* . trans-n um , 
curroi* .st-num , 
curroi* .aa-num, 
curroi* .ao. la, 
oxtvtlg) ; 

(*reset s value and release tne a.o, loc< if oresent») 
IF oxtvtlg THEN 
BEGIN 

set.s(currol*.do.id); 

IF do. array [cur rol *. do-iaj *, s.cnt < 

ac.array [curroi*. do_idj*.n.cnt ThEn 
release. lock (curroi*. do-id); 

END; * ) 

(*Ir both aa and tv were rolled cacxea, continue*) 

IF oxaaflg ana oXtvt lg tnen 
curroi ;= curroi*.nxt 

( * rnen write an error warning and tnen continue*) 

ELSE 

BEGIN 

NKITELN (audit, 

"attempt to roloacx an aa,tv tnat was not there") 
wKITELn ( audit, curroi*. ini t.site : 4 , 

'curroi* . trans. num : 4, 

curroi*, st. num ; 4, curroi*. aa.num ; 4, 
cur rol* , do-id : 4); 
curroi := curroi*. nxt 
END; 

until curroi = nil; 

1 : IF rollDacx.ptr <> nil then 
BEGIN 



re.ptr := rolioacK.ptr ; 
ok. fig := true; 

roiibacK.ptr := rolioacK.ptr* .nxt ? 

END 

ELSE 

ok. fig := false; 

IF OK.flg THEN 
BEGIN 

( *DISPCSEC re.ptr ) ; *) 
goto l; 

END; 

END; (*proc roiibac<*) 



***?*) 

PROCEDURE' restore. sr Crei.ptr ; ptr.ch); 

C * Ibis procedure will restore seriallzaole execution at tne 
local data ooject. It receives as input a list ot 
conflict history pairs wnicn are all involved in cycles 
and outputs a list of aa's whicn thus t be reexecutea 
linearly. *) 



(*¥*****: 



VAR 

rolioacK.ptr, roll.cn.ptr : ptr.cn ; 



BEGIN 

iRITELNCaudit, 'restore.sr is restoring sr'); 

(* produce the list of aa's to oe rolled DacK *j 
oetermine.rol lDacK (rel.ptr, rolioacK.ptr ) ; 

(* roll those temp versions bacK, and all related ones *) 
rolloacK (rolioacK.ptr, roll.cn.ptr); 

( * upaate all conflict histories to reflect tne roilea 
oac< tv's *) 

(* rollbacK.cn ( roll-ch-otr , 'y', 0, false); ») 



END; 






PROCEDURE marK-temp. version (status ; cnar; 

mar K-aalotr ' : ptr.aa; 
marK-st-ptr ; otr.strans; 
marK-tr-Dtr : ptr.trans); 

(♦this marxs the most recently created temp ver as either 
t(r) or t(w). if the temp ver is'marKed t(r), tne suo 
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trans ana crans wnicn created tne t e m o ver nave t n e i r ter) 
quantity fields adjusted as required?) 

VAR 

tvlptr : ptr-tv; 
readflg : boolean; 
otrtotv : ptr-tv; 
donum ; integer; 

BEGIN (*mar<-temp- vers ion* ) 

f ind. tv (. xarK-aa.pt r* .aa-ia . trans-site, init-site, 
marK.aa-ptr* . aa-ia . trans-site . trans-num , 
marK.aa.ptr * . aa.ia .st-num , ' 
marK.aa.ptr*.aa-ia, aa-nun* , 
m arK-a a-ptr * , aa-ia, ao-ia , 
ptr totv ) ; 

wRITELN (auait, 'mar X- texp-ver ixarxing 

wRII£(audlt,marK-aa.ptr*.aa-id.trans-site.init-sIte : 4 , 

' xarK-aa.pt r* , aa.Ia . trans.site. trans -nun 
marK.aa.ptr* . aa-ia. st-num ; 4, 
xarK.aa.ot r * . aa.ia , aa-nu it : 4, 
;nar<-aa.ptr*.aa-ia.ao-ia : 4); 

writel.n (audit) ; 
case status or 

'r ' : ptrtotv'*,stat.fld := ' r ' ; 

' w * ; ctrtotv*.stat-fld := ' * ' ; 

'z' : BEGIN ( *case z* ) 

readflg := true; 

donum := mar K-aa-ptr* .aa-ia. ao-ia; 
tvlptr := do-array laonum) * . tv. ptr; 

IF tvlptr = nil Then 
begin 

viRITELN (audit, ' x a r K temp tried to marK a') 
akITlLN ( auait , 'temp wnicn was not tnere'3; 
wRlTELMaucit, mar<-aa.ptr * . a a- id . 

trans-site. mit-site , 
x ar K -a a-ptr *. aa -id, trans-site. 

trans-num , 

mar K-aa-pt r* . aa-id . st-num , 
marK-aa-ptr * . aa-id . aa-num , 
mar<-aa-ptr * .aa-ia, ao-ia ) ; 

END 

ELBE 

BEGIN 

WHILE tvlptr <> nil DU 
BEGIN (♦WHILE*) 

IF (tvlptr*. aa. id. r-w-fig = 'r') 
'and (readflg) THEN 
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tviotr* . stat.t la : = *r' 

EL St 

If (tvlDtr*.aa„ld.r.v;.rlg = 

'r') and 

( NO I r ead t lg ) ThEN 
tvlptrSstat-flG := 

ELSE 

If (tvlptr*. ad.ia.r.w.fia 

'w') and 

(readflgj THt.N 
aEG I N 

tvlptr*. stat-fid := *r' 
re ad tig := false 
cNU 
EtiSc, 

If ( tvlptr * . aa.ia . 

r.*.flg = 'w') and 
(.'JOT reaaflqj rhtN 
tvlptr* . stat-flG := 
* * ' ; 

tvlptr := tvlptr*. nxt; 

END; ( * *•< n 1 L £. * 3 
end; (*ELSt*) 

End; (*case z*) 

END; (»case»J 

If otrtotv* , stat.f Id = 'r' TnEu 
BEGIN (*IF is r*) 

mark.st.Dtr *, aa.tr. qty : = 

mark.st.ptr* . aa.tr. qty t i 
If mark.s t.ptr* . aa.tr.qty > 

mark.st.ptr*.aa.aty TnEN 

BEGIN 

mark.st.ptr* .aa.tr.qty := 

marK._st.ptr*.aa.qty; 

wRITELn (audit , 'in mar ktemp ' tfie aatr qty'3 
WRITELN (audit , 'exceeded tne aa aty'3; 

End; 

IF mark. st. ptr*. aa.tr.qty = 

mar k.st.ptr * . aa.aty THEN 

mark.tr.ptr* . st-tr-qty : = 

mark.tr.ptr* . st.tr.qty + 1 
IF mark. tr.ptr* . st.tr.qty > 

mark.tr.ptr* . s t. qty THEN 

BEGIN 

mark.tr.ptr* , st-tr-qty := 

mark.tr.ptr* . st.aty ; 

NKiTELN(auait,'ln marktemp'tne sttr qtv'j 
*RIT£LN (audit, 'exceeded tne st qty'); 

END; 

END; ( •* I F is r * ) 

END; (*mark’temp version*; 
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*) 
♦ ) 



PROCEDURE enter.lock.queue (enter.aa.ptr : ptr_a<a); 

(* tnis enters an atomic action into tne lock queue at a 
data ob)ecc wnen the atomic action tinds tne 
data ODject loc<ed *) 



VAR 

nulocptr , tvlptr : ptr-locx-q; 
enter. st.ptr : ptr.strans; 
enter. tr.ptr : ptr.trans; 
donum ; integer; 

BEGIN (*enter lock queue*) 

( *oui Id ana load tne new Icck queue mem per data*) 
nl/i Cnulocptr ) ; 
nulocptr* ,nxt := nil; 

nulocptr * .aa.id. tran s. site. ini t. site : = 

enter.aa.ptr * . a a. id . trans.s ite , ini t.s ice; 
nulocptr*. aa. id', trans-site, crans.num ; = 

enter.aa.ptr* . aa-id. trans. site. trans.num; 
nulocptr*. aa. id, st. hum ;= enter.aa.ptr*,aa.id.st.num; 
nulocptr*. aa. id. aa-num := enter_aa.ptr*,aa.id,aa_nun.; 
nulocptr *. aa.ia , r.w.iig ; = enter.aa.ptr* . aa.ia. r_*.ilg ; 
nulocptr*. aa. id. a o. id : = enter-aalotr*.aa.ia.ao_ia; 
nulocptr*. aa.ia, cn.seq ;= enter.aa.ptr*, aa.ia. cn.seq; 
nulocptr*. aa.ia. metric := enter.aa.ptr*. aa.ia. metric; 
WRIIELn ( aualt, 'entering this aa in tne lock queue'); 
aRITELNC audit , enter.aa.ptr * .aa-id . 

trans.site. init.site ; 4, 

enter.aa.ptr *. aa.ia . trans.s ite . trans.num ; 4 , 
enter.aa.ptr A . aa-id . st.num ; 4, 
enter.aa.ptr* . aa.ia . aa.num ; 4); 
donum := enter.aa.ptr* . aa-id. ao-ic; 

(♦set tne atomic action locx tiela as locxec out*) 
enter.aa.ptr *. in-ioc.<g-f lg ;= true;' 

(♦enter tne atomic action into the lock queue*) 

IF do.ar ray laonumj * . iocx-d-ptr = nil then 
do.array Ldonum j * . locK-d-ptr ;= nulocptr 
ELSt 

BEGIN ( *ELSE* ) 

tvlptr ;= do-array (donum) *. lock. a. ptr ; 

WHILE tvlptr*. nxt <> nil do 
tvlptr := tvlptr*. nxt; 
tvlptr*. nxt := nulocptr; 

END; ( *ELBE* ) 

END; (*enter lock queue*) 



* ) 
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PROCEDURE sort.cn (inlistptr, sortlistotr : ptr.cn; 

ind.insert ; ooolean; 

VAR sort-insert ; ooolean); 



(*tnis inserts a llnxed list o t conflict histories pointed 
to oy inlistptr into a sorted list pointed to oy 
sortlistptr sorted order. Duplicate memoers are not 
inserted in tne list. If the ind.insert flag’ is on, the 
sort-insert flag is true if an insert occurea, a neaaer 
ana a trailer are used in the sorted list for ease 
of insert. *) 



VAR 

sch.cn.ptr , baseptr, leadptr, nucnptr : ptr.cn; 
nupairptr : otr-cn-pair; 
dupflg jooolean; 



PROCEDURE determine. aup ( det-aa.ptr , leadptr : ptr.cn; 

VAR dupflg Jboolean); 

C* this sets dupflg true if the conf hist pointed to oy tne 
two input pointers are duplicates * ) 

BEGIN (^determine dup*) 

IF‘(aet.aa_ptr*.aa.id.trans-slte,lnit_site = 
leadptr*. a a_ ia. trans-site. inlt_slte) and 
C det-aa-ptr*'. a a- id. trans.site. trans-num - 
leaaptr*. aa- id. trans-site. trans.num) a«D 
(aet.aa.ptr* .aa. id. st-num = 
leaaptr *, aa-id . st-num ) And 
( det-aa-ptr* . aa-ia. aa-num = 
leadptr*, aa. id. aa.num) and 
( det-aa_ctr* . pa lr-ptr * . aa-id , trans-site . ini t-s ite = 
leadptr*. pair-ptr*. aa.ia. trans.site. inic.site) and 
( det-aa_ptr* .pair-ptr*.aa-id,trans_site.trans-nun = 
leadptr*. pa ir-ptr*. aa_id. trans-site, trans.num) AuD 
( aet.aa.ptr * . pair.ptr* . aa-id . st-num = 
leaaptr*. pair-ptr*. aa-id. st.num) and 
( det-aa.ptr*. pair.ptr* .aa-id . aa.num = 
leadptr*, pair-ptr*. aa-id. aa.num) THEN 
dupflg ;= true; 

END; (^determine duo*) 



) 



BEGIN (♦sort ch*) 

scn_cn-ptr := inlistptr; 
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while scn-cn-p tr <> nil DO 
3EG1N (*r'2*) 

baseptr := sortlistptr; 
leadptr := oaseptr* , nxt; 

•iHXLE leadptr * . aa-id . tr ans-s i te , ini t-s i t e < 

scn-cn-ptr * . aa-id. trans-site. mit-site u o 
BEGIN C*r3*)' 

oaseptr := leaaptr; 
leadptr := leaaptr *, nxt ; 

END? (*ri*) 

IF leadptr* , aa-id . trans-site . mit.si te = 

sc n-cn-ptr". a a- id, trans-site. ini t- site then 
IF NuT C scnicn-p tr * . aa-id . trans-s i te . trans-num < 
leadptr*. aa-ia. trans_site. trans-n u . t. j i nEN 
WHILEcieadptr*. a a- id, trans-site, in it-s ite 
’ = scn-ch-pt r * . aa-id . trans-site. 

i nit-site? and 

i scn-cn-ptr * . aa-ia.trans-site. 

trans-num > 

leadptr*. aa-ia . trans-site, trans-num J to 
begin (*r4*)’ 

baseptr := leadptr; 
leaaptr : = leaaptr*. nxt; 
end; ( * r 4 * } 
dupflg := false; 

aetermine-aup ( leadptr , scn.cn.ptr , cupf ig ; ; 

IF NOT dupilg THEN 
BEGIN ( *r 5* ) 

Ntfl C nucnotr ) ; 

Ne> (nupairptr ) ; 

nucnotr *. pair-ptr := nupairptr; 
nucnptr*. nxt ;= oaseptr*. nxt; 
oaseptr*. nxt := nucnptr; 
nupairptr* , aa-id ;= 

sc h-cn-ptr*. pair-ptr*. aa-ia ; 
nupairptr* , metric-sum := 

scn-cn-otr *. pair-ptr* . metr ic-surn ; 
nucnptr* .aa-ia := scn-cn-ptr * . aa-ia ; 

IF ir.d-insert then 

sort- insert ;= true; 
end; C*r5*J 

scn-cn-ptr := scn-ch-ptr*.nxt; 

END? C*r2*) 
end ; (*sort ch*) 

*******) 
**♦***¥) 

PROCEDURE add-ana-detect (ada-ch-ptr ; ptr-cn; 

VAR *as_non«.sr : Dooiean; 

VAR roil-cn-ptr ; ptr-cnj; 
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C* Tnis adas a neaoer and a trailer to tne input conflict 
nistory list and cails tne detect non-sr proc. Ir non-sr 
is detected the flag "was.non.sr " is set to true, me 
neaoer and trailer are stripped off Drior to return * j 



VAR 

out.ch.ptr, tvlptr, cn.dispose.ptr : ptr-cn; 
pout.cn.ptr : ptr-ch-pair ; 

BEGIN 

was. non-sr : = false ; 

(* add Header and trailer *) 
aod-n.and.t ( add.cn. ptr 3 ; 

(* see if non-sr exists *) 

detect. non-sr (aoa.cn.ptr, was-non.sr, roil. cn. ptr ) ; 

C * strip off neaoer and trailer * } 
tvlptr := add. ch. ptr; 

VHILE tvlptr*. nxt*, aa. id. trans -sice. in it. site <> ' A ' do 
tvlptr := tvlptr*. nxt; 
cn.dispose.ptr ; = tvlptr*. nxt; 
tvlptr* , nxt ; = nil; 

It cn.dispose.ptr <> nil T.iEN 
DlSPGSEC cn.dispose.ptr 3 ; 
cn.dispose.ptr : = add.cn. ptr; 
add.cn.ptr := acd-cn-ptr*.nxt; 

DlSPGSECcn. dispose. ptr); 

end ; 




PROCEDURE sort.tr.cn ( sort-ptr ,nr-erge.ptr ; ptr.cn; 

VAR out-cn.ptr : Ptr.cn ; 

VAR insert.flg ; ooolean); 



( * tnis sorts tne list of conflict mstorles oolntea to py 
sort-ptr and merges into tne sorted list tne list 
pointed to oy merge-ptr. no duplicates are ailoweo m 
tne final sorted list pointed to oy out.cn. ptr. if any 
inserts’ to tne final list came from tne merge list, 
tne insert.flg is set to true.*) 



VAR 

pout.cn.ptr ; ptr.cn.pair; 
sort.lnsert : Doolean; 
tvlptr ; ptr.cn; 

begin (*sort tr cn*) 
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insert-flg 



FALSE; 



(♦add a neaaer and trailer ch recora to tne output! 1 3 t* ) 
out.ch.ptr ;= nil; 
ada.n.and.t* (out.cn. ptr); 

IF merge. ptr = nil then 

sor t.cn ( sort-ptr , out-ch-ptr ,tALSE, sort. insert) 

C.LSE 

IF sort-ptr = nil THEN 
BEGIN (*1*) 

insert. fig := TRUE; 

sor t. ch( Merge. ptr,out-ch.otr, false, sort. insert); 
END (*1*) 

ELSE (*neitner pointer is nil*) 

BEGIN' ( * 2* ) 

sort.cn ( sort-ptr , out. cn.pt r , false , sor t.inser t ) ; 
sor t.cn (merge. ptr, out-ch-ptr, TRUE, sort-insert); 
IF sort-insert IbEN 
insert-flg ;= True; 

END; ( *2* ) 

( * strip off header and trailer from output list*) 
tvlptr := out-ch-ptr; 

while tvlptr*. nxt*. a a- id, trans-site. Init. site <> 'A' uo 
tvlptr := tvlptr*. nxt; 
tvlptr*. nxt := nil;' 
out-ch-ptr ;= out-ch_ptr* . nxt ; 

END; (*sort tr ch*) 




PROCEDURE resolve.glODal.sr (ptrtotr ; otr.trans; 

var res-ch.ptr : ptr-ch; 

VAR was. non. sr : ooolean; 
var roii-cn-ptr : Dtr-cn); 

(♦this resolves glooal non-seriaiizaoiiity oy aetectiny non- 
seriaiizaoi llty on’ the concatenation of conflict mstories 
for the input transaction. ine iterative process of 
concatenation of'conflict histones and aetection of 
non-ser insures tnat the detection process and tne 
resultant resolution process are exhaustive for a given 
transaction, roll.cn. ptr points to tne minimal conflict 
history to roll cac**) 

VAR 

tr.array : array [ l ,, y9J of integer; 

mt.array.f lg , found. a-one , mt-tr-cn , insert-flg : coolean; 

i ; integer; 
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tviptr : ptr-trans; 

sortptr , mergeptr , tempptr , nxt-trcn-otr : Dtr.cn? 



C* procs for res glo sr *) 






PROCEDURE set. array [set-ch-ptr j ptr.chj; 

( * this puts a 1 into eacn index slot wnicn is not a 1 or a 
2 for eacn transaction found in tne input list of 
conflict nistories. Tine inaex is tne trans.num rieia 
in tne conf hist*) 



VAR 

tviptr : ptr.cn; 



BEGIN (*set array*) 

tviptr := set.cn.ptr? 
a HIDE tviptr <> nil DO 
BEGIN C*l*) 

If tr.array C tviptr * .aa.ia. trans.s ite . 

trans.num] " = 0 THEN 
tr.array [ tviptr * . aa.io . trans.site. 

trans.num) := l; 

IF tr.array [tviptr* .pair.ptr* .aa.id. 

trans.sitei trans.numj = u then 
tr-array [tviptr* . pair.ptr*. aa.ia. 

trans.site'. trans.numj := 1 ; 
tviptr := tviptr*. nxt? 

End; (*1*) 

End; (*set array*) 



(****************: 






PROCEDURE find. a. one (VAR nxt-trch.Dtr ; ptr-cn; 

VAR found-a-one.mt-tr.cn : boolean); 



(*this attempts to find a 1 in tne tr.array. if a 1 is 
found, a pointer to tne transaction's conflict history 
with tne same trans.num as tne inaex in tne array is 
returned, the found. a-one flag is set to true anu it the 
transaction conflict is not empty the mt.tr.cn flag is 
false. If no 1 Is found the round.a.one is returnee raise. 
If a 1 is touna out tne transaction's conflict is empty, 
tne mt.tr.cn flag Is set to true*) 



VAR 

lax , i : integer; 
tviptr ; ptr-trans; 



BEGIN (*flnd a one*) 
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i : = l; 

mt-tr-cn := false; 
found-a-one := false; 
nxt-trch_ptr := nil; 
ihILE NOT (l > 99 ] DO 

IF tr-arrayCU = l THEN 
BEGIN (*1*] 

f ound-a-one ;= true; 
tr-arrayilj : = 2; 
idx ;= i; 
i ;='loo 

END 

ELSE 

1 : = 1 + 1 7 
IF found-a-one THEN 
BEGIN ( * 2 * ) 

tvlptr ;= trans-ptr; 

IF tvlptr = nil then 
*kIteln ( audit # 

’'error, find a l found mt trans list') 

ELSE 

vkHILE tvlptr <> nil DU 
BEGIN 

IF tvlotr* . trans-site. 

trans-num = tax Then 
IF tvlptr'* , trans-cn-ptr <> nil Then 
nxt-trcn-ptr : = tvlptr”*, 

trans_ch-ptr ; 

tvlptr ;= tvlptr* .nxt; 
end; 

end ; 

Ir nxt-trcn-ptr = nil THEN 
mt-tr-cn ;= true; 

END; (*find a one*] 



* 



** ) 



(* main loop res glo sr *) 

BEGIN 

*RITE(audit , 'entering resolve giooal sr for trans = ' ) ; 

a RITE ( audit , ptrtotr *, trans-s ite , ini t_s i te ; 3 ); 
aRITELN ( audit , otrcotr* . trans-site, trans-num ; 3 ); 

FOR i := 1 TO 99 DO 
tr-arrayLil ;= 0; 
mt-array-flg :=’false? 

*as-non-sr := false; 

tr -a rrayLptrtotr*. trans-site, trans-n urn] ;= 2; 
set-array ( res-cn-ptr ) ; 

* H I L E (NOT mt-arrav-flg] and (NOT was-ncn_sr] DO 
BEGIN C*l*] 

round-a-one := false; 
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mt-tr-cn := true; 

f ind-a-one ( nxt-trch-ptr , found-a_one, mt-tr-cn); 

IF ( f ound-a-one } and (not mt»tr-cn) then 
BEGIN (.* 2 *) 

insert- rig ;= false; 

sort-tr-cn(res-ch_ptr,nxt_trcn-ptr,temDotr, 

insert-tig)? 

ptrtotr* • trans-cn-ptr ;= tempptr; 
res-cn-ptr := tempptr? 
set-array (re s-cn-ptr) ? 

IF lnsert-flg Int.i 
BEGIN 

wRiitCaudit , 'resolve global is canine', 

' detect-non-sr for = ')?’ 

«RITt ( audit /ptrtotr*. trans-site. 

init-site : 4 ); 

wRITE(auait,ptrtotr''.trans_site. 

trans-num : 4 ) ; 

*RITtLN (audit ) ; 
was-hon-sr := false; 

add-ana-detect (res-cn-ptr , was-r.on-sr , 
‘roli-cn-ptr) 

End? 

end; (*2 *) 

IF not touna_a-one then 
mt-array-flg := true; 

END ; ( * 1 * ) 

END; (*resolve global sr») 




PROCEDURE detect-global-sr Cqlobal-fla : boolean; 

vak commit-flg ; ocolean ; 
vak tr-ptr ; otr-trans; 
lockq-cn-ptr : otr-cn); 

( * rnis procedure will aetermine it tne transaction conflict 
histories presently indicate serializable activity. if 
so, tne commit-flg win return true; otherwise, false. * ) 



VAR 

dummy, non-sr ; boolean; 
roil-cn-ptr : ptr-cn; 

BEGIN 

w FIX eln ( audit, 'entering aetect-g looai-sr ' ) ; 

IF glODai-fig = false THEN 
BEGIN 

sort-tr-cn ( tr-ptr *. trans-cn_ptr , locxc-cn-ptr , 
'tr-ptr * . trans-cn-ptr , dummy); 



174 



aao. and. detect ( tr-ptr * , trans.ch.ptr , non.sr, 

roll.cn.ptr ) ; 

If non.sr Then 

restore. sr (roll.cn.ptr ) 

ELSE 

resol ve.glODal.sr (tr-ptr, tr-ptr* . trans.cn.ptr , 

’non.sr, roll.cn.ptr ) ; 

Ir non.sr ThEN 

restore. sr (roll.cn.ptr); 

END 

ELSE 

BEGIN 

sort.tr.cn (tr-ptr * . trans.cn.ptr , loc<q.cn.ptr , 
‘tr-ptr* . trans.cn.ptr , dummy); 
add.and. detect ( tr-ptr* , trans.cn.ptr , non.sr, 

' roll.cn.ptr ) ; 

IF non.sr then 

restore. sr (roll.cn.ptr) 

ELSE 

resolve. glooal.sr (tr-ptr, tr-ptr * . trans.cn.ptr , 

‘non.sr, roll.cn.ptr); 

IF non.sr THEN 

restore. sr (roll.cn.ptr) 

ELSE 

commit-flg := true 

END 

END; 




PROCEDURE aetect.deadlocK (aa.ptr : ptr.aa; 

st-ptr : ptr.strans; 
tr-ptr : Ptr.trans); 



(* this procedure will detect ano, it necessary, resolve tne 
deadlock whlcn can occur wnen atomic actions are placed 
in locx queues *) 



VAR 

oase.tv.ptr, taxe.tv.ptr , faxe-list-ptr : ptr.tv ; 
faxe.end.ptr ; ptr.tv; 

locxq.cn. ptr , temp.cn.ptr, st.cn. ptr : ptr-ch; 
temp.locX.ptr : ptr-locx.q; 
global. fig, commit-flg ; boolean; 
donum : integer; 

BEGIN 

flRITELN (audit, 'cnecxlng deaalocx tor aa ; # ); 
NRITE (audit, aa. ptr*. aa.id 

, trans-site. lnit. site ; 2); 
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WRITE (auait,aa-ptr*.aa-ia 

. trans_site. trans-num : 2); 

WRITE (audit, aa-ptr“ . aa_ia . st.num : 2); 

WRITE (audit, aa_ptr* »aa_ic ,aa_num : 23; 

WRITSLNlaudlt) ; 

(* construct "faxe” temp versions froiT. the aa's in toe 
i ocX aueue'so that a complete conflict history 
can be built *) 
faxe_list_ptr ;= nil? 
donum ;= aa_ptr * . aa-id . ao-id; 
temp-iocx-pt r := ao-array tdonumj * , iocx-g-ptr ; 
ahILc temp_locX-ptr <> nil DO 
BEGIN 

NEw ( taxe-tv_ptr ) ; 
w ITH ' temp. locX-ptr * , aa-id CL 

begin 

faxe-tv-ptr*.aa-ld. trans-site. init-site := 
trans-site . init-site ; 

faxe-tv-ptr'*. a a_ ia. trans_site. trans-num : = 
trans_site.tr an s_n urn? 
faxe-tv-ptr". aa_ia.st-num ;= st_num; 
f axe-tv-ptr** ,aa_ia .aa-num aa-num; 

faxe-tv-ptr* . aa-id . r-w-f lg := r-w-fla; 
f a<e-tv-ptr A .aa-ia.ao-ia ; = do-ld; 
f axe-tv-ptr * .a a-ia . cn-seq ;= ch-seo; 
faxe-tv-ptr* .aa-la. metric := metric; 
f a<e_tv_ptr* . tv_cn-ptr ; = nil; 
wrIteln ( audit , 'creating' faxe tv for;'); 
WRlTEcaudit, trans_site. mit-site ; .2, 

" trans-site . trans‘_num ; 2, 
st_num : 2, 
aa-num : 2, 
do-id : 2 ) ; 

WRITELN (audit) ; 
end; (* with *) 

IF f axe-list-ptr = nil THtN 
BEGIN 

f axe_iis t-ptr : = faxe-tv-ptr; 
faxe_end_ptr ;= faXe_tv-ptr 

END 

ELSE 

BEGIN 

f axe-end-ptr * . nxt := taxe-tv-ptr; 
faxe-ena-ptr ;= faxe-tv-ptr 
end; * 

temp_iocx_ptr : = temp_locx_ptr",nxt; 
end? ( * while * ) 
faxe-tv-ptr" .nxt := nil; 

(* hang the faxe tv s at the tv *) 
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base.tv.ptr := do_array [donum] *. tv. ptr ; 

IF ao-ar ray Cdonumj * , tv.ptr = nil THEN 

do. array laonumj *.tv.ptr : = fake. i 1st. ptr 
ELSE 5 E G I n 

rtrtlLt oase.tv.ptr * , nxt <> nil DO 
oase.tv.otr : = ' base.tv.ptr *. nxt; 
base.tv.ptr* .nxt := take. list. ptr; 

END; 

( ♦ If conflicts exist, construct ana save conflict 
nistory *3 

lockq.ch.ptr := nil; 

IF detact.conf i let Cdonum] then 

oetiTi. conflicts (donum, lockq.cn. ptr 3 ; 
cooy.cn (lockq.cn.ptr, temo.cn.ptr ) ; 
temp. lock. ptr ;= do. array [donumj * . lock. a. ptr ; 

*rtlb£ temp-lock. ptr* . nxt <> nil ou 

temp-lock. per temp. lock. ptr" , nxt ; 

temp. lock. ptr* . lock.cn.ptr : = temp.cn. ptr; 

(* remove tne fa<e tv from tne tv list *3 
IF pase.tv.ptr = nil then 

do. array [donum] *. tv. ptr := nil 
ELSE 

Dase.tv.ptr* .nxt : = nil; 

( * ada tne current aa st's ch to tne locxq-ch * ) 
coDy.cn (st-ptr* . st.cn.ptr / st-cn-ptr]; 

IF lockq.cn. ptr ' <> nil then 
BEGIN 

temp.cn.otr i- loc<q.cn. ptr ; 

WHILE temp.cn.otr* .nxt <> nil DU 
temp.cn. ptr := temp. cn.ptr*. nxt; 
temp.cn.otr *. nxt : = st-cn-ptr" 

END 

ELSE 

lockq.cn.ptr : = st.cn. ptr; 

(* detect and resolve any deadlock *) 

IF lockq.cn.ptr <> nil then 
BEGIN 

glooai.tlg := false; 

detect-global-sr (glooai.flg, commit-tlg/ tr.ptr, 

lockq.cn.ptr 3 

END 

END; 
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PROCEDURE update. finisnea.qty (fin. st. ptr : ptr.strans; 
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fin.tr.ptr : ptr.trans); 



( * Tnis procedure Is only called *nen an atomic action is 
finisned executing Cat step 14 ). It w- i l X update toe aa 
finlsned quantity at the suotrans ana it the suotrans ' is 
finisnea It *111 move tne subtrans conf mstory to tne 
trans ana update tne suotrans finisnea quantity. *3 



VAR 

fin.cn.ptr, temp.ch.ptr : ptr.cn; 

BEGIN 

IF fin.st.ptr~.aa.qty = f in.st.ptr~ .aa.f in.qty ihen 
wRITELN (audit, 

'ERROR: step 14 has more aa"s tinisnea ', 

'than exist'; 

ELSE BEGIN 

(* add 1 to aa finisned quantity *; 

f in.st.ptr~ .aa.f in.gty := tin.st.ptr~.aa.tin.qty + 1 ; 

IF f in.st.ptr* .aa-qty = f in-st-ptr~ .aa.f m.oty TbEn 
BEGIN 

(* add 1 to subtrans finisned quantity *; 
f ln.tr.ptr~ . st-f in-qty := 

f in.tr.ptr~ . st.f in.qty + 1 ; 

(* copy suotrans cn, tnen add it to tne 
trans' cn *) 

copy.cn c f in.st.ptr ~ . st.cn.ptr , fin.cn.ptr;; 

IF f in.tf.ptr~ . trans. cn.Ptr = nil ihtM 
f in. tr.ptr~ . trans. cn.ptr : = fin.cn.ptr 
ELSE BEGIN 

temp. cn.ptr fin.tr.ptr~ , trans. cn.Dtr ; 

*dlLE temp.cn.Ptr~ ,nxt o'mi Du 
temo.cn.ptr := temp_cn.ptr~.nxt? 
temp.cn.ptr~.nxt := f in-cn.ptf 
END (* ELSE *) 

END C* IF THEN *) 

END (* ELSE *3 
END ; 



PROCEDURE execute CVAR seea : unsigned? 

time. delay : integer); 



VAR 

exec. trans. ptr : ptr-trans? 
exec.st.ptr : ptr.strans? 
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exec. aa. per : ptr-aa; 
rel.ptr : ptr_ch; 
nave.aa, non.sr : ooolean? 

BEGIN 

nave.aa := raise; 

(* n randorrily " select next atomic action to execute *3 
select-aa (nave.aa, exec-trans-ptr , exec_st_ctr, 
'exec-aa.ptr , seea); 

(* execution sequence *3 
IF nave.aa then BEGIN 

exec. aa. ptr* . step-num ;= exec-aa-ptr *. step_num + i; 
CASE exec-aa_ptr * . step-num Or 

1 ; ( * if locked, tnen time-out, 

else acquire lock *3 

IF locked (exec-aa-ptr* ,aa-ld.do_iaj then 
time-out C t ime-aelay , exec.aa.ptr3 
ELSE BEGIn 

acquire-locx Cexec-aa_ptr*,aa_ia.dc_ia, 
exec-s t-ptr , exec-aa-ptr 3 ; 
exec-aa-ptr *. step-num := exec_sa.ptr * . 

steo.r.uin t 1 

ENC; (* ELSE *) 

2 : (* remain nere until time-out finlsnea *3 

(* If still locked, enter lock aueue, 
else get lock *) 

IF exec.aa-ptr “ . time-val < time-delay ThEN 
BEGIN 

( * continue to *rait tor time-out toenc +3 
’ time-out C t ime-aelay , exec-aa.ptr3; 
exec-aa-ptr * . s tepinum ;= exec_ad_ptr * . 

step_num - i 

END (* IF * 3 
ELSE 

BEGIN 

IF locked ( exec-aa.p tr * , aa-id . ao_id 3 THEN 
(* go to enterilock-queue step * ) 
exec-aa-ptr*. step-num 

:=" exec-aa-ptr *. step-num * 10 

ELSE 

acqul re-lock i exec_aa-Dtr*,aa-ia.ao_ia, 
exec.st.ptr , exec_aa_ptr 3 

END? C* ELSE * ) 

3 : ( * remain .nere until all non-local locks 

are acquired *) 
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IF do_arraY[exec.aa.ptr''.aa-la,ao-icJ lack.qt y 
<> 0 THEN 

exec-aa-ptr* , step.num := exec.aa.ptr ^ . 

step_nu(n - i; 



4 : (* rest and relax 

non.sr := non-sr; 

5 : BEGIN 

(* read/update data object *) 

create. temp. ver (exec.aa.ctr , exec.st.ptr, 

eAec.trans.ptr ) ; 

l * If conflict exists tnen invoke the local 
concurrency controller *) 

IF detect-conf lict ( exec.aa.ptr * . aa.ic 
♦do.id) THEN 

construct.prec.rei (exec.aa.ptr'.aa.iu 
. do-ia) 



cLSE 

l* go to set s to zero step *) 
exec.aa.ptr* . step-num := 

exec.aa.ptr * . s tep.nun + •*; 

end ; 

6 : (* store tne nuitioer or conflicts this temp 

version n a s * ) 

set_s (exec.aa.ptr * , aa.id . do. id ) ; 

7 : (» tne local concurrency controller *) 

BEGIN 

detect- non-sr (do. array lexec-aa-ptr ** .aa_ia. 

do.iu] * . cn.Dtr non-sr, rei.pcr); 

IF non-sr THEN 

restore-sr (rel.ptrJ 
ELSE 

exec-aa_ptr * . step.num := exec.aa.ptr * . 

step.num + i 

END; c* case 7 *) 

8 j ( * .nark status as eitner t ( r ) or t ( * ) *) 

BEGIN 

mark.temp.ver s lon( *z' , exec.aa-ptr , exec-st-ptr , 

exec-trans-ptr ) ; 

(* do to check for release ibex step *j 
exec.aa.ptr* . step.num : = exec.aa.ptr* . 

step.num + 3 

end; (* case a *) 

9 : (* mark status as t(wj *) 
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BEGIN 

mar*- temp«ver s ion ('*', exec_aa_ptr, 
exec-st-ptr, exec-trans_ptr ) ; 

(* go co cnecx for release locx step *) 
exec-aa-ptr s cep-nutii := exec.aa.p tr ~ . 

step_num + i 

END ; (* case 9 *) 



10: (* set s to zero *) 

do_array (exec-aa-ptr * . aa.ia . dc-idj * . s_cnt := o; 

1 1 : (* marx status as ter) *) 

marx- temp- version ( ' r ' , " exec-aa-ptr, 
exec-st-otr, exec-trans-ptr ) ; 

12: ( * release short-term 1 o c K , if necessary ♦ ) 
BEGIN 

IF do-array [exec-aa-ptr * . aa_id , do_ia j * . s_cnt < 
do-array l exec-a a_p t r**. a a-i a. ao-ioj ".n-cnt 
THE* 

release-lccx ( exec_aa_ptr ~ , aa-ia . do_ia , 
exec-aa-ptr ) ? 

(* go to finished step'*) 
exec-aa-ptr* . step_num := exec-aa-ptr " . 

step-rum + l 

END; (* case 12 *) 

li: (* time out nas expired *) 

IF locxea Cexec-aa-ptr * .aa-id.oo-id) then 
BEGIN 

enter-locx-queue ( exec_aa_ptr ) ; 
detect-aeadlccx (exec-aa-ptr, 

exec-st-ptr, exec_trans_ptr ) 

END 

ELBE 

d c, G I N 

acouire-locx (exec-aa_ptr' , .aa-ia.ao-iG, 
exec-st-ptr', exec_aa-ptrj ; 
exec-aa-ptr step-num := exec-aa-ptr A . 

step_num - ’ll 

END; 

14: (* output which aa nas finisned and update 
"finished quantities" - tnls stepnum 
explicitly used in procedure select-aa *j 
BEGIN 

wRITELN (audit, 'tne aa at step 14 is :'); 
WRITE (audit, exec-aa-ptr ~ ,aa_id . 

‘trans-site. init-site : 2); 

*RITE (audit, exec-aa-ptr*' ,aa_id. 
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trans_site. trans-num : 2); 

WRITE (audit , exec-aa-ptr* . aa. id . st_num :2); 
WRITE (audic , exec-aa-Dtr * ,aa_ia.aa_num 12 ); 
wR iteln ( aud i t ) ; 

update_£inished-qty texec-st-ptr, 
exec-trans.ptr ) ; 

END; (* case 15 *) 

END (* case *) 

END (* IF THEN *) 

END; (* PROCEDURE execute *) 






PROCEDURE commit (com-tr-ptr : ptr-trans); 

( * tnis commits a transaction alter ail temporary versions 
nave oeen labied tir). The temporary versions createo 
oy tne trans- action atomic actions are aeleted, a nistory 
message is sent to file audit, and tne temporary versions 
at tne data objects where a temporary version has ceen 
deleted are re-lablea t(r) or tc.vj as necessary. *) 

VAR 

tvlptr : ptr-trans; 



: * * * * * ^ ) 



PROCEDURE set_tv.tr (ptrtotv : ptr-tv); 

(♦this sets a temp version oased on a committed t ( r ) temp 
ver to t(r). ptrtotv points to tne ' committing temp ver *) 



VAR 

sett_tr_ptr : ptr-trans; 
sett-st-ptr : otr-strans; 
sett-aa-ptr ;ptr-aa; 



BEGIN (♦reset tv*) 

(*If another tv is based on tne current tv then reset its 
status*) 

IF ptrtotv* ,nxt <> nil then 

IF ptrtotv*. nxt", stat-f la <> 'r' Then 
BEGIN '(*1*) 

ptrtotv* ,nxt* . stat-ila := " r '; 

tind-aa( ptrtotv* . nxt*.aa-id. trans_slte. init-site, 
"ptrtotv* .nxt* . aa_id . trans -site . trans-num , 
ptrtotv*. nxt*. aa-la.st_n urn, 
ptrtotv*. nxt* . aa_ia . sa_nurr. ,sett_aa_ptr, 
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sett-st-ptr , sett-tr-ptr ) ; 
sett-st-ptr A ,aa_tr-qty := 

sett-st-ptr A . aa-tr-qty + l; 

IF sett-st-Ptr*. aa-tr-qty > 

sett-st-ptr A . aa-qty Tnt.N 

B L G I w 

sett_st-ptr A .aa-tr-qty := 

set t-st-ptr*. aa-qty; 
wRiT&LN (audit , 'from commit"); 
wRUtliN (auoit / 

'in mark temp tne aa tr qty'); 
aRITELN (audit , 'exceeaea tne aa aty'); 

END; 

IF sett_s t-ptr A . aa-tr-qty = 

sett_st-ptr“ ,aa_oty TnEN 
sett-tr-ptr A . st-tr-qty := 

sett_tr_ptr A . st-tr-qty + l; 
IF sett-tr-ptr A . st-tr-qty > 

sett-tr-ptr A . st-qty T n E n 

BEGIN 

sett-tr-ptr A . st-tr-qty 

sett-tr-ptr A . st-qty ; 
wRITELN (audit, 'from commit'); 

*R1TELn ( audit , 

'in mark temp tne st tr aty'); 

* R I r E L N (auoit, "exceedea tne st aty'); 

END; 

end; (*l*) 

END? ( ♦reset ’ tv* ) 



■<■■*■** ) 



PROCEDURE f ind-aa-commit ( £ ind-aa-ptr : ptr-aa); 

( *tni s visits eacn atomic action of a committing transaction 
and deletes the tempory version created oy tne 
atomic action*) 

VAR 

donum : integer; 
tvlptr , ptrtotv : ptr-tv; 

BEGIN (*find aa commit*) 

IF find-aa-ptr <> nil THEN 
BEGIN (*!*) 

f ind- tv (£ ind-aa-ptr A . aa_id , trans-site. init-site, 

£ ind-aa-ptr A . aa_id .trans-site. trans-num , 
f ind-aa-ptr A . a a-id , s t-num , 
i ind-aa_ptr * . aa-id . aa-num , 
t ind-aa-ptr A ,a a-id. do- id, ptrtotv) ; 
donum := f ind_aa-ptr A .aa-ld.do-id; 
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IF ptrtotv = nil THEN 
BEGIN (*2*) 

( *error , 'could not tind the tv*) 

*H1TELN ( audit , 'ccmmi t coula not tind a tv ==>'); 
fcRITELN ( audit , find. aa-ptr * . aa-ia. trans_s ite . 
init-site :4, 

f ind-aa.ptr * • aa.ia . trans-s ite . tr ans-num m , 
fina.aa.ptr * . aa_ia . st-num : 4, 
f ina-aa_ptr*.aa-ia.aa-num : 4); 

WHITELn ( audit ) 

END C*2*) 

ELSE 

BEGIN C * 3 * ) 

(♦remove this tv's conf histories from 
all cn's*) 

rolloack-cn (ptrtotv*. aa. id. trans. site 
•init-site^ ptr totv* . aa.id 
. trans-site. trans -num, 
u , o , true); 



(*If tv is first in line*) 

IF do-array [donum J *, tv. ptr = ptrtotv thcN 

ao-arr ay Caonum) “ . tv-ptr := ptrtotv", nxt 

ELSE 

C*the tv is imoepaed in the list or tv's*) 
BEGIN C * 4 * ) 

tvlptr ;= do_arraylaonumj*.tv.ptr; 
rthiLE tvlptr". nxt <> ptrtotv uo 
tvlptr : = tviDtr* .nxt; 
tvlptr*. nxt := ptrtotv*. nxt; 

END; ( *4* ) 

set.tv-trCptrtctv); 

(♦reset the s-cnt value at the a.o. ana 
release the Iock if present*) 
set-S(ptrtotv*.aa-id. ao-ia); 

IF do-array [ptrtotv* ,aa-id . do-iaj *. s.cnt < 
ao-array [ptrtotv*'.aa-id.dc_idj "*.n_cnt THEN 
release-locKCptrtotv*.aa-ia.do-id / 
t ino-aa-ctr ) ; 



End; ( *3* ) 

find-aa_commit( f lnd-aa-ptr * . nxt ) ; 
END; (*1*) 

END; (*find a a commit*) 



*) 



PROCEDURE f ino-st-commlt C f ins-st-ptr ; ptr-strans); 

(*tnis visits each suotrans in a committing transaction so 
tnat each atomic action can oe visited*) 
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BEGIN (*fina st commit*) 

IF tins.st.ptr <> nli ThEN 
BEGIN (*1*) 

f ind.aa. commit t tins.st.ptr* , aa.pt r ) ; 
r incus t.comm it (f ins.st.ptr* . nxt ) ; 
END; (*i*) 

END? (*find st commit*) 






(* main loop commit *) 

Begin 

WRITELN Caudit , 'committing transaction = ===> 

co m.tr.ptr*. trans-sice. ini c. site : 4 , 
com. tr.ptr*. trans-site. trans.num : 4); 
f lnd.st. commit Ccom_tr.pt r* . st.ptr ) ; 

(*remove tnis transaction from the structure as it nas 
committed* ) 

IF com.tr.ptr = trans.ptr 1 'hEN 
trans.ptr := com.tr.ptr* , nxt 
ELSE 

BEGIN CM*) 

tvlptr := trans.ptr; 
while tvlptr*. nxt <> com.tr.ptr do 
tvlptr := tvlotr*.nxt; 
tvlptr*. nxt := com_tr.pcr*,nxt; 

END; (*1*) 
c.ND; (*comiTit*) 



PROCEDURE global. sr; 

(* tnis procedure is called in the main proaram's ao forever 
loop ana will insure tne global serializaoility of the 
atomic action sequence *) 



VAR 

temp.tr.ptr ; otr-trar.s; 
commit.flg, glocai.flg ; boolean; 
nil-cruptr : ptr.cn; 

BEGIN 

temp.tr.ptr := trans.ptr; 
while temp.tr.ptr <> nil DO 
BEGIN 

IF temp.tr.ptr* . st. qty = 

temp.tr.ptr* , st-fin-qty THEN 
BEGIN 

IF ( temp.tr.ptr *. trans.ch.Ptr = nil) 
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ana ( temp.tr.ptr " . s t-qty 

= temp.tr.ptr A . st.tr. qty ) Ttiht. 

BEGIN 

wRITELN (audit, 'transaction 

temp.tr-ptr A .trans.site.inic_3j.te, 
temp. tr-ptr A .trans. site. trans.num:3, 
' Is tCr) from glooal.sr ' ) ; 
commit (temp.tr.ptr) 

END (* IF THEN *)' 

ELSE BEGIN 

glccal.flg := true; 
co mm it. fig := false? 
nil-cn.ptr := nil? 

detect. global. sr (global. fig, commit-flg, 

temp.tr.ptr, nil-cn.ptr); 
IF commlt.flg ana ( temp.tr.ptr A . st-aty 
= temp.tr.ptf A . st.tr.aty ) then 
commit (temp.tr.ptr) 

END (* IF ELSE *) 

END? ( * I F THEN' *) 
temp.tr.ptr : = temp.tr.ptr A . nxt 
END (* WHILE *) 

END? 



C * tnls program is an adaptive optimistic concurrency 
controller *) 

(* main program *) 

BEGIN 

rewrite (audit)? 

REWRITE (data); 

RESET (trans); 

RESET (datadic); 

RESET (dob J ) ? 

RESET (runfile); 

(* ouild the transaction file *) 
b 1 d t x ; 

wRITELN (audit, 'tne transaction tile was built')? 

( * build tne data dictionary *) 
olddic? 

WRITELN (audit, 'tne data dictionary was ouilt'J? 

( * DUild tne data ODject database *) 
bldao? 

wRITELN (audit, 'tne data object database was built'); 
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(*ouild the tv,ch environment it required*) 

WR ITELN ( 'do you want to reao tv or cn, y or n Y'); 
wRITELN (audit, 'tne tv,cn environment was ouilt'); 
readln(ch) ; 

cnecK.stop(stoprun,cn); 

IF (cr. = ' Y ' ) or (cn = 'y') then 
savcntv; 
concntv; 
pr select ? 

CLOSE(data) ; 

enter. time-delay ( time. delay ) ; 

wRIIELN (audit, 'time delay constant entereo : ', 
time. delay) ; 

enter-random. seed (seed); 

wRITELN (audit, 'random seen value entered : ',seed); 

(* initialize atomic action re-execution list *) 
reexec.ptr := nil; 

wRITELN ('Enter a carriage return to cegin execution :'); 
REadLn ; 

ch ;= 'y'; 
while cn = 'y' oo 
BEGIN 

new ( purge. list. ptr) ; 
purge.iist.ptr * , nxt ;= nil; 
n£w ( purge-list-ptr* . pair-ptr ) ; 

FOR i ;= 1 TO lQQU DO' 

BEGIN 

(* can receive message *) 

(* execute eacn atomic action and related 
control *) 

execute (seed , time-aeiay) ; 

(* insure that actions are serializable *) 
giooai.sr ; 

(* this code disposes of no longer needed 
conflict hist noaes *) 
tvl.purge ; = purge.iist.ptr; 
while purge.iist.ptr <> nil DO 
BEGIN 

purge.iist.ptr ;= purge.iist.ptr * .nxt; 
CISP05E(tvi. purge". pair.ptr); 

DISPOSE (tvl.purge) ; 
tvl.purge ; = purge.iist.ptr; 

END; 
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NEW(ourge-iist-ptr)? 
purge- list.ptr'*.nxt := nil ; 
new ( purge-list-ptr* .pair.ptr ) ? 

END? ' 



IF trans.ptr = nil Then 
BEGIN 

*'RITELN (audit, 

'All transactions are tlrusnea ill')? 
WRITELN ('All transactions are t inisned ‘ 1 i : r ) 
END? 

wPITELN ('Continue ir.ain loop ..... "y" or "n" . '); 
READLN (Ch)? 

cnecK-stop (stoprun, cn) 

END ? 

REWRITE (data)? 
prselect ? 

CLOSE (data) 



End. (* program algo-test *) 



(*♦ 4:3 
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APPENDIX C 



SAMPLE SIMULATION UUfPUT 



the transaction file was ouilt 
tne data dictionary was built 
tne data object aataoase was built 
tne tv , ch environment was built 
time delay constant entered : 3 

random seed value entered : 1 

locking data obj l 

locking data obj 3 

locking data ooj 2 

locKing data obj 4 

creating a temp version 
12 112 

no conflict is detected 
creating a temp version 
112 13 

no conflict is detected 
creating a temp version 

13 114 

no conflict is detected 
mar<„temp..ver marking : 

13 114 
release lock for d.o, 
locking data ooj 4 
mar x-temp.ver marking : 

12 112 
creating a temp version 

14 114 

conflict is detected at 
const prec rel at d.o, 
conflict history constructed at 4 

tne value of H s” was set to : 1 

mark-temp-ver marking : 

112 13 

mark-temp-ver marking : 

14 114 

release lock for d.o, 4 

release lock for d.o, 3 

locxing data ooj 3 
creating a temp version for: 

11111 

no conflict is detected at 1 

release lock for d.o. 2 



for : 
at 

for : 
at 

for : 
at 



for : 
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entering this aa in the lock queue 
12 2 1 

checking deadlock tor aa : 

12 2 1 

conflict is aetected at 1 

conflict history constructed at 
creating a temp version for: 

13 12 3 

conflict is detected at 3 

const prec rel at a.o, 3 

conflict history constructed at 
the value of "s" was set to : l 

entering this aa in tne lock queue 
1 4 1 2 

cnecking deadlock tor aa : 

14 12 

conflict is aetected at 3 

conflict history constructed at 
locking data obj 4 
mark-temp. ver marking : 
11111 
mark. temD. ver marking : 

13 12 3 



1 



3 



3 



release lock removed from lock queue : 
14 12 



rolloack.ch is removing cn"s tor 
creating a temp version for: 

14 12 3 

conflict is detected at 3 

const prec rel at d.o. 
conflict history constructed at 
the value of "s" was set to : 
mark-temp_ver marking : 

14 12 3 



rollback 



3 

2 



3 



release lock for d.o. 3 

release lock removed from lock Queue : 



12 2 1 



rollback.cn is removing ch"s tor rolloack 
creating a temp version for: 

112 2 4 

conflict is detected at 4 

const prec rel at a.o. 4 

conflict history constructed at 4 

creating a temp version for: 



12 2 11 

conflict is detected at 1 

const prec rel at d.o, 1 

conflict history constructed at 1 

tne vaiue of "s'* was set to : 1 

locking data obj 2 
mark-temp.ver marking : 
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1 



the value of "s" was set to : 2 

entering this aa in tne lock queue 
1 3 1 ' 3 

checking deadlock for aa ; 

13 13 

conflict is detectea at 1 

conflict hi story constructed at 1 

locking data obj 3 

release lock rerroved from lock queue : 

13 13 



rollback.cn is removing ch"s for 
mark.temp.ver marking : 

112 2 4 

creating a temp version for: 

13 13 1 

conflict is detectea at l 

const prec rei at a,o. 
conflict history constructed at 
creating a temp version tor: 
1112 2 

conflict is detected at 2 

const prec rei at d.o. 
conflict history constructed at 
the value of "s" was set to : 
release lock for d.o. 4 

detect non sr detected non sr 
cycle is : 

112 1 13 12 

13 11 14 11 

14 11 112 2 

restore. sr is restoring sr 
entering determine. rollback 
rolling back atomic action : 

14 11 

rollback.cn is removing cn"s for 
rolling hack temp version : 

14 11 

roiling Dack atomic action : 

13 11 

rollback.cn is removing ch"s for 
rolling back temp version : 

13 11 

rolling back atomic action : 

14 12 

rollback-cn is removing ch"s for 
rolling back temp version : 

14 12 

rolling back atomic action : 
112 2 

rollback-ch is removing ch"s for 



rollback 



1 



1 



2 

2 



2 



rollback 



rollback 



rollback 



rollback 
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attempt to rolbacK an aa,tv that was not 
112 2 4 

rolling back atomic action : 

13 12 

rollDacK.cn is removing ch"s tor rolloacK 
rolling bacK temp version : 

13 12 

release locK for d,o. l 

rolling DacK atomic action : 

13 13 

rollbac.K.ch is removing ch''s for rollbac.K 
rolling bacK temp version : 

13 13 

locKing data obj 4 

the value of "s" was set to : 1 

creating a temp version for: 

14 114 

no conflict is detected at 4 

marK.temp.ver marKing : 

14 114 

marK.temp.ver marKing : 

1112 2 
release locK for d,o, 4 

locKing data ocj 4 
entering this aa in tne locK queue 

13 11 

cnecKing deaolocK tor aa : 

13 11 

conflict is detected at 4 

conflict history constructed at 
entering tnis aa in the locK queue 

14 12 

cnecKing deadlock for aa : 

14 12 



conflict is detected at 3 

conflict history constructed at 
creating a temp version for: 

12 12 3 

conflict is detected at 3 

const prec rel at d.o. 3 

conflict history constructed at 
creating a temp version tor: 

112 2 4 

conflict is detected at 4 

const prec rel at o.o. 4 

conflict history constructed at 
release locK for d,o, 2 

tne value of "s" was set to : 1 

entering tnis aa in the locK queue 
12 2 2 

checKing deadlock for aa : 



there 



4 



3 



3 



4 
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12 2 2 

conflict is detected at 4 

conflict ni story constructed at 
detect r.on sr detected non sr 
cycle is : 

1111 12 2 1 
12 11 1112 
13 11 12 2 2 

restore. sr is restoring sr 
entering determine. rollback 
detect non sr detected non sr 
cycle is : 

1111 12 2 1 
12 11 1112 
rolling Dack atomic action : 

12 2 2 

rollbacK.ch is removing cn"s for rollback 
rollback.aa is removing aa from lock a : 

1 2 2 2 

rolloack.cn is removing cn"s tor rollback 
attempt to rclback an aa, tv that was not 
1 2 2 2 4 

rolling back atomic action : 

13 11 

rolloack.cn is removing cn"s for roiloack 
rollback.aa is removing aa from leek q : 
13 11 

rollback.cn is removing cn"s for rollback 
attempt to rolDack an a a , t v that was not 
13 114 

rolling Dack atomic action : 

12 2 1 

rollback.cn is removing cn M s for rollback 
rolling back temp version : 

12 2 1 

rolling Dack atomic action : 

1111 

rollback.ch is removing cn"s for roiloack 
rolling back temp version : 

1111 

rolling Dack atomic action : 

1112 

rollDack.cn is removing cn"s for rollback 
rolling Dack temp version : 

1112 

locking data obj l 
mark. temp. ver marking : 

112 2 4 

the value of "s M was set to : 1 

entering this aa in tne lock oueue 
1111 



there 



there 



checKlng aeaolock for aa : 

1111 

no conflict Is detected at 1 

release lock for d.o, 4 

locking data ooj 4 
mark-temp.ver marking : 

12 12 3 

release lock removed from lock queue : 

14 12 

rollbacK.cn is removing cn"s for rollback 



creating a temp version for: 

13 114 

conflict is detected at 4 

const prec rel at a.o. 4 

conflict nistcry constructed at 
creating a temp version for: 

14 12 3 

conflict is detected at 3 

const prec rel at d.o. 3 

conflict nistory constructed at 
the value of "s" >as set to : 2 

creating a temp version for: 

12 2 11 

no conflict is detected at 1 

mark-temp.ver marking : 

14 12 3 

release lock for d.o. 3 



detect non sr detected non sr 
cycle is : 

112 1 12 12 
12 12 14 12 

14 11 112 2 

restore. sr is restoring sr 
entering determine. rollback 
rolling oack atomic action : 

12 12 

rolloack.cn is removing cn"s for rolloacK 
rolling oac< temp version : 

12 12 

rolling pack atomic action : 

112 1 

rollfcack.cn is removing ch"s for rollback 
rolling tack temp version : 

112 1 

rolling cac< atomic action : 

14 12 

rollfcack.cn is removing cn"s for rollback 
attempt to roloack an aa,tv that was not 
14 12 3 

rolling back atomic action : 

112 2 



4 



3 



tnere 
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rollback.ch is removing ch"s for rolloack 
rolling back temp version : 

112 2 

release lock for d.o, 4 

rolling bac< atomic action : 

13 11 

rollback. cb is removing ch"s for rollback 
attempt to rolback an aa,tv that was not there 
13 114 

locking data obj 3 
mark.temp.ver mar Kina : 

12 2 11 
locking data ooj 4 
entering this aa in the lock queue 
1 4 12 

checking deaalock tor aa : 

14 12 

no conflict is detected at 3 

creating a temp version for: 

13 114 

conflict is detected at 4 

const prec rel at o.o. 4 

conflict history constructed at 4 

the value ct "s" was set to : l 

mark.temp.ver marking : 

13 114 

release lock for d.o. 4 

entering this aa in the lock queue 
112 1 

checking deaalock for aa : 

1 1 2 i 

conflict is detected at 3 

conflict history constructed at 3 

release lock removed from lock Queue : 

1111 

rollback. ch is removing ch"s for rolloack 
creating a temp version for: 

12 12 3 

no conflict is detectea at 3 

creating a temp version for: 

11111 

conflict is detected at 1 

const prec rel at d.o, 1 

conflict history constructed at 1 

entering this aa in the lock queue 
1 3 12 

checking deadlock for aa : 

13 12 

conflict is detected at 3 

conflict history constructed at 3 

tne value of "s" was set to : 0 
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mar k-temp_ver marking : 

12 12 3 

release lock removed from lock queue : 

14 12 

rollback-cn is removing cn"s for rollback 
creating a temp version for: 

14 12 3 

conflict is detected at 3 

const prec rel at d.o. 3 

conflict history constructed at 3 

tne value of "s" was set to : 1 

mark-temp. ver marking : 

14 12 3 

release lock removed from lock Queue : 



112 1 

rolloack-cn is removing cn" s for rollback 
locking data ooj 4 
creating a temp version for: 

112 13 

conflict is detected at 3 

const prec rel at d.o. 3 

conflict nistory constructed at 3 

the value of "s" was set to : 2 

creating a temp version for: 

1 2 2 2 4 



conflict is detectea at 4 

const prec rel at d.o. 4 

conflict history constructed at 
tne value of "s" was set to : 2 

mark- temp- ver marking : 
lllil 
release locx for d.o. 1 

mark-temo-ver marking : 

112 13 

locking data odJ 2 
mar<_temD-ver marking : 

1 2 2 2 4 



release lock removed from lock Queue j 
13 12 

rolloack-cn Is removing cn"s for rollback 
release lock for d.o. 4 

detect non sr detected non sr 
cycle is : 

12 12 14 12 

13 11 12 2 2 

14 11 13 11 

restore. sr is restoring sr 
entering determine. rollback 
rolling pack atomic action : 

14 12 

rollback-ch is removing ch"s for rollback 
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rolling back temp version : 

14 12 

rolling oack atomic action : 

12 12 

rollfcack-.cn is removing ch " s tor rollback 
rolling oack temp version : 

12 12 

rolling back atomic action : 

112 1 

rollfcack»cn is removing cn"s tor rollback 
attempt to rolback an aa,tv that was not tnere 
112 13 

creating a temp version tor: 

1112 2 

conflict is detected at 2 

const prec rel at a.o, 2 

conflict history constructed at 2 

tne value of "s" was set to : l 

creating a temp version for: 

13 12 3 

no conflict is detectec at 3 

entering this aa in tne lock queue 
14 12 

cnecking deaolock for aa : 

14 12 

conflict is detected at 3 

conflict history constructed at 3 

detect non sr detected non sr 
cycle is : 

13 12 14 12 

14 11 13 11 

restore.sr is restoring sr 
entering determine- rolloack 
rolling back atomic action : 

14 12 

rollDack-cn is removing ch"s for rolloack 
rollDdCk.aa is removing aa from lock q': 

14 12 

rollback-ch is removing ch"s for rollback 
attempt to rolback an aa,tv that was not there 
14 12 3 

release lock for d.o. 3 

rolling back atomic action : 

13 12 

rollback-ch is removing ch H s for rollback 
rolling back temp version : 

13 12 

locking data odJ 3 
creating a temp version for: 

14 12 3 

no conflict is detected at 3 
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mark-temp.ver marking : 

14 12 3 

mark-temp_ver marking : 

1112 2 
release lock for a.o, 2 

release lock for a.o. 3 

committing transaction ====> i 4 

rollDack.ch is removing ch"s for commit 
tne value of "s" was set to : l 

release lock tor a.o. 4 

rollbac«_ch is removing ch"s for commit 
tne value of "s" was set to : 0 

release lock for a.o. 3 

locking aata ooj 3 
entering this aa in tne lock queue 
13 12 

checking deadlock for aa ; 

13 12 

no conflict is detected at 3 

creating a temp version for: 

12 12 3 

no conflict is detected at 3 

entering this aa in tne lock queue 
112 1 

cnecking deaalock for aa : 

112 1 

conflict is aetected at 3 

conflict history constructed at 3 

mar k-temp„ver marking : 

12 12 3 

release lock removed from locx queue : 

13 12 

rolltack-ch is removing ch"s for rollback 
creating a temp version for: 

13 12 3 

conflict Is detected at 3 

const prec rei at a.o. 3 

conflict history constructed at 3 

tne vaiue of "s M was set to : 1 

mark_temp_ver marking : 

13 12 3 

release lock removed from lock queue : 
112 1 

rollfcack-cn is removing ch"s for rollback 
locking data obj 1 
creating a temp version for: 

112 13 

conflict is detected at 3 

const prec rel at d.o. 3 

conflict nistory constructed at 3 

the value of "s" was set to : 2 
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creating a temp version tor: 

13 13 1 

conflict is detected at l 

const prec rel at d.o. 
conflict history constructed at 
tne value of "s" was set to : 
mark.temp.ver marking : 

13 13 1 

release lock for d.o. 1 

detect non sr detected non sr 
cycle is : 

1111 1 3 1 i 

12 2 1 1111 
13 11 12 2 2 

restore. sr is restoring sr 
entering determine. rol Iback 
rolling pack atomic action : 
1111 

rollback. ch is removing cn" s for 
rolling back temp version : 
1111 

rolling pack atomic action : 

12 2 1 

rollback. ch is removmq ch"s for 
rolling back temp version : 

12 2 1 

rolling oaccc atomic action : 

1112 

rolloack.ch is removing cn"s for 
rolling back temp version : 
1112 

rolling back atomic action : 

13 13 

rcllback.cn is removing cn"s for 
attempt to rolbactc an aa.tv tnat 
13 13 1 

rolling cack atomic action : 

12 2 2 

rolloack.ch Is removing cn"s for 
rolling back temp version : 

12 2 2 



1 

l 



1 



rollback 



rollback 



rolioack 



rolloack 
was not there 



rolloack 



locking data od] 1 
mark-temp.ver marking : 

112 13 

entering this aa in the lock Queue 
13 13 



cnecking deadlock for aa : 

13 13 

no conflict is detected at 1 

release lock tor d.o, 3 

creating a temp version for: 
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1 



11111 

no conflict is detectea at 
mark.temp.ver marking : 

11111 
loc<lng data obj 4 
release loot removed from lock aueue : 

13 13 

rollback.cn is removing cn M s tor rollback 
creating a temp version for: 

13 13 1 

conflict is detected at 1 

const prec rel at d.o. 1 

conflict nistory constructed at 1 

entering tnis aa in the lock aueue 
12 2 1 

cnecking deadlock for aa : 

12 2 1 

conflict is detected at 1 

conflict history constructed at 1 

detect non sr detected non sr 
cycle is : 

12 12 13 12 

13 13 12 2 1 

restore. sr is restoring sr 
entering determine. rollDack 
roiling Deck atomic action : 

12 2 1 

roiloack.cn is removing cn” s for roiiback 
rolloack.aa is removing aa from lock a : 

12 2 1 

rollcack.cn is removing cn"s tor rollback 
attempt to rolback an aa,tv that was not tnere 
12 2 11 
release lock for d.o. 1 

rolling sack atomic action : 

13 13 

rollback.ch is removing cn''s for rollback 
rolling back temp version : 

13 13 

restore. sr is restoring sr 
rolling back atomic action : 

12 2 1 

roliback.cn is removing cn"s for rollback 
attempt to rolback an aa,tv that was not tnere 
12 2 11 

rolling back atomic action : 

13 13 

rollback.ch is removing ch"s for rollback 
attempt to rolDack an aa,tv tnat was not tnere 
13 13 1 

locking data obj l 
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creating a temp version for: 

12 2 11 

conflict is detected at 1 

const prec rel at a.o, 1 

conflict history constructed at 
creating a temp version for: 

112 2 4 

conflict is aetectea at 4 

const prec rel at d.o. 4 

conflict history constructed at 
tne value of "s" was set to : 1 

the value of "s" was set to : l 

locking data ooj 2 
entering this aa in tne lock aueue 
13 13 

checking deadlock for aa : 

13 13 

conflict is detected at 1 

conflict history constructed at 
mark-temp.ver marking : 

112 2 4 

release lock for a,o, 4 

mark-temp.ver marking : 

12 2 11 



l 



l 



release lock removed from lock aueue : 

13 13 

rollcack.cn is removing cn"s tor rollback 
creating a temp version for: 

13 13 1 

conflict is aetectea at l 

const prec rel at a.o. l 

conflict history constructed at 1 

tne value of "s'' was set to : 2 

mark-temp.ver marking : 

13 13 1 

creating a temp version for: 

1112 2 

conflict is aetectea at 2 

const prec rel at d.o. 2 

conflict history constructed at 2 

release lock for d.o. 1 

aetect non sr detected non sr 
cycle is : 

1111 12 2 1 
12 12 112 1 
restore. sr is restoring sr 
entering determine. rollback 
rolling back atomic action : 

12 2 1 

rollfcack.cn is removinq cn"s for rollback 
rolling bac< temp version : 
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12 2 1 



rolling back atomic action : 
1111 

rollbacK.cn is removing cn"s for 
rolling oacn temp version : 
1111 

release lock for d.o, 2 

rolling back atomic action : 
1112 

rollback.cn is removing cn"s for 
rolling Dack temp version : 
1112 

rolling oack atomic action : 

13 13 

roliback.cn is removing cn"s for 
attempt to rolbac.k an aa,tv that 
13 13 1 

locking data obj 1 

creating a temp version for: 

12 2 11 



rollback 



rollback 



rollback 
was not tnere 



no conflict is detected at 1 

mark. temp. ver marking : 

12 2 11 

entering this aa in the lock aueue 
1 3 13 



checking deadlock tor aa : 

13 13 

conflict is detected at 1 

conflict nistory constructed at 1 

release lock removed from lock queue : 

13 13 



rollback.cn is removing cn"s for rollback 
locking data ooj 4 
creating a temp version for: 

13 13 1 



conflict is detected at 1 

const prec rel at d.o. 1 

conflict history constructed at 1 

the value of " s " was set to : 0 

creating a temp version for: 

1 2 2 2 4 

conflict is detected at 4 

const prec rel at a.o. 4 

conflict history constructed at 4 

mark. temp. ver marking : 

1 3 1 3 1 



release lock for d.o, 1 

the value of "s" was set to : 2 

detect non sr detected non sr 
cycle is : 

1 1 2 2 1 2 2 2 
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12 12 13 12 

13 11 112 2 

restore. sr is restoring sr 
entering determine. rollback 
rolling sack atomic action : 

13 12 

roliDack.ch is removing cV's for 
rolling back temp version : 

13 12 

rolling back atomic action : 

12 12 

rollback-cn is removing ch"s for 
rolling back temp version : 

12 12 

rolling oack atomic action : 

13 13 

rollDacx .ch is removing cn"s for 
rolling back temp version : 

13 13 

rolling Dack atomic action : 
112 1 

rollback.cn is removing cn"s for 
attempt to rolback an aa,tv that 
112 13 

rolling back atomic action : 
112 2 

rolloack.cn is removing cn''s for 
rolling oack temp version : 

112 2 

release lock for d.o. 4 

rolling back atomic action : 

12 2-2 

rollback.cn is removing ch"s for 
attempt to rolback an aa,tv tnat 
1 2 2 2 4 

locking data obi 3 

creating a temp version 
13 12 3 

no conflict is detected 
mark-temp. ver markinq : 

1 3 1 2 3 

release lock for d.o. 
locking data ooj 4 

locking data ooj 3 

locking data ooj 1 

creating a temp version 
13 13 1 

conflict is detected at 
const prec rel at d.o. 
conflict history constructed at 
the value of "s" was set to : 



f or : 

at 3 

3 

for : 

1 



rollback 



rollback 



rollcacK 



rollback 
was not tnere 



rollback 



rollbacK 
was not tnere 



1 

0 



1 
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mark.temb.ver mar kina : 

13 13 1 

release lock ror d.o. 1 

entering tnis aa in the lock queue 
12 12 

checking deadlock ror aa : 

12 12 

conflict is detected at 3 

conflict history constructed at 3 

detect non sr detected non sr 
cycle is : 

12 2 1 13 13 

13 12 12 12 

restore.sr Is restoring sr 
entering determine. rollbacK 
rolling back atomic action : 

12 12 

rollback.cn is removing cn"s for rollbac< 
rollback. aa is removing aa from lock g’ : 

12 12 

rollDack.ch is removing ch”s for rollback 
attempt to rolback an aa,tv that was not there 

12 12 3 

rolling oack atomic action : 

13 12 

rollback.ch is removing cn M s for rolxbacK 
rolling back temp version : 

13 12 

rolling back atomic action : 

13 13 

rollback.ch is removing cn"s for rollback 
rolling back temp version : 

13 13 

creating a temp version for: 

112 13 

no conflict is detected at 3 

creating a temp version for: 

1 2 2 2 4 

conflict is detected at 4 

const prec rel at d.o. 4 

conflict history constructed at 4 

locking data obj 1 

entering this aa in the lock aueue 

13 12 

cnecking deadlock tor aa : 

13 12 

conflict is detected at 3 

conflict history constructed at 3 

tne vaiue of "s" was set to : 1 

mark-temp. ver marking : 

112 13 
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release locx removed from lock queue : 
13 12 



rollback.cn Is removing ch"s for rollback 
creating a temp version for: 

13 12 3 



conflict is detected at 3 

const prec rel at a.o. 3 

conflict nistory constructed at 
the value of "s" was set to : 1 

mark. temp. ver marking : 
i 3 1 2 3 

release lock for d.o. 3 

mark.temp. ver marking : 

1 2 2 2 4 

locking data obj 3 

creating a temp version for: 
lllll 



conflict is detected at 1 

const prec rel at d.o. 1 

conflict nistory constructed at 
release lock for d.o. 4 

entering this aa in the lock queue 



1 3 l ' 3 



3 



1 



cnecking deadlock for aa : 

13 13 

conflict is detected at 1 

conrlict nistory constructed at l 

the value of "s" was set to : 0 

mark-temp. ver marking : 
lllll 
locking data obi 4 
creating a temp version for: 

112 2 4 

conflict is detected at 4 



const prec rel at a.o, 4 

conflict history constructed at 4 

the value of "s" was set to : 2 

creating a temp version for: 

12 12 3 

conflict is detected at 3 

const prec rel at d.o. 3 

conflict nistory constructed at 3 

mar k- tern p-ver marking : 

112 2 4 



release lock removed from lock queue : 

13 13 

rolloack.cn is removing ch"s for rolloack 
creating a temp version for: 

13 13 1 

conflict is detected at 1 

const prec rel at d.o. 1 
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1 



conflict history cons true tea at 
the value of "s" was sec to : l 

the value of "s" was set to : 2 

marK-temp.ver mar King : 

13 13 1 

release Iock for d.o, 1 

detect non sr detected non sr 
cycle is : 

112 1 13 12 

12 2 1 1111 
13 11 12 2 2 

restore. sr is restoring sr 
entering determine.rollDacK 
rolling oacK atoir.ic action : 

1111 

rollbacK.cn is removing ch"s for rolicacK 
rolling oac< temp version : 

1111 

rolling oacK atomic action : 

12 2 1 

rollbacK.cn is removing cn"s for rolibacK 
rolling oacK temp version : 

12 2 1 

rolling oacK atomic action : 

13 13 

rollcacK.cn is removing cn"s tor rolloac< 
attempt to roloacK an aa,tv that was not 
13 13 1 

rolling oacK atomic action : 

12 2 2 

rollbacK.ch is removing ch"s for rolibacx 
rolling fcacK temp version : 

12 2 2 

release Iock for d.o. 4 

rolling oacK atomic action : 

112 2 

rollbacK.cn is removing cn"s for rolloacK 
attempt to roibacK an aa,tv that was net 
112 2 4 

locKing data obj l 

mar K.temp.ver mar<lng : 

12 12 3 

release locK for d.o. 3 

entering this aa in the locK queue 

13 13 

cnecKing deadiocK for aa : 

13 13 

no conflict is detected at 1 

creating a temp version for: 

11111 

no conflict is detectea at 1 



tnere 



tnere 
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mark-temp.ver marking : 

1 1 i 1 1 

release lock removed from lock aueue : 
13 13 



rollback. ch is removing ch"s for 
conflict is detectea at 1 

const prec rel at a.o, 
creating a temp version for: 

13 13 1 

conflict history constructed at 
locking data ooj 4 
tne value of H s" was set to : 
mark-temp.ver marking ; 

13 13 1 

release lock for d.o. 1 

locking data obj 1 
creating a temp version for: 
112 2 4 

conflict is detected at 4 

const prec rel at a.o. 
conflict history constructed at 
locking data odJ 2 
the value of "s" was set to : 
mark-temp. ver marking : 

112 2 4 

creating a temp version for: 
1112 2 

conflict is detected at 2 

const prec rel at d.o. 
conflict history constructed at 
release lock for d.o. 4 

tne value of "s ! ' was set to : 
mark-temp.ver marking : 
1112 2 



rollback 

1 



1 



1 



4 



4 



1 



2 

1 



2 



detect non sr aetected non sr 
cycle is : 

112 1 13 12 

13 11 112 2 

restore. sr is restoring sr 
entering determine. rollDack 
rolling Dack atomic action : 

112 2 

rollback.cn is removing cn"s for rollback 
rolling back temp version : 

112 2 

rolling oac< atomic action : 

13 11 

rollback.cn is removing cn"s for rollback 
rolling back temp version : 

13 11 

rolling oack atomic action : 
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rollback 



13 12 

rollback.ch is removing cn"s for 
rolling back temp version s 
13 12 

rolling oack atomic action : 

13 13 

rollback. ch is removing cn"s for rollback 
rolling back temp version : 

13 13 

locking data ooj 4 
creating a temp version for; 

12 2 11 

conflict is detected at 1 

const prec rel at d.o. 1 

conflict nistory constructed at 1 

release lock for d.o, 2 

the value of "s" was set to ; l 
entering this aa in tne lock queue 
13 11 

cnecking deadlock for aa ; 

13 11 

no conflict is detected at 4 

creating a temp version tor; 

112 2 4 

no conflict is detected at 4 

mark-temp. ver mar«ing ; 

12 2 11 
release lock for a.o. 1 

mark. temp. ver marking : 

112 2 4 

release lock removed from lock Queue : 

13 11 

rollback. ch is removing cn"s for rolloack 
creating a temp version for; 

13 114 

conflict is detected at 4 

const orec rel at d.o. 4 

conflict history constructed at 4 

detect non sr detected non sr 
cycle is ; 

112 1 12 12 
12 11 1112 
restore.sr is restoring sr 
entering determine. rolloack 
rolling back atomic action : 

1112 

rollback. ch is removing cn"s for rollback 
rolling back temc version ; 

1112 

rolling back atomic action ; 

12 11 
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rolloac<_ch is removing cn"s for roll Da ck 
rolling back temp version : 

12 11 

rolling back atomic action : 

12 12 

rollback.ch is removing cn''s for rollback 
rolling bacK temp version j 
12 12 

locking data odJ 2 

tne value of M s" was set to : 1 

mark. temp. ver marking : 

13 114 

release lock for d.o. 4 

locking data ooj 3 
creating a temp version for: 

13 12 3 

conflict is detected at 3 

const prec rel at d.o. 3 

conflict history constructea at 3 

the value of "s" was set to : ’ l 
creating a temp version for: 

1112 2 

no conflict is detected at 2 

entering this aa in tne lock queue 
12 11 

checking aeaalock for aa : 

12 11 

conflict is aetected at 2 

conflict history constructed at 2 

mark. temp. ver marking : 

1 3 1 2 3 

release lock for d.o. 3 

locking data obj l 
creating a temp version for: 

13 13 1 

conflict is detected at 1 

const prec rel at a.o. 1 

conflict history constructed at 1 

locking data obj 4 

tne value of "s" was set to : 2 

mark-temo.ver marking : 

1112 2 
mark. temp. ver marking : 

13 13 1 

release lock for d.o, l 

release lock removec from lock aueue : 

12 11 

rolloack-ch is removing ch"s for rollback 
transaction l 1 is ter) from giooai.sr 

committing transaction' ====> i l 

rolloack.cn is removing ch"s for commit 
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0 



the value of "s" was set to : 
release lock for d.o, 1 

rollDacK.cn is removing ch"s for 
the value of "s" was set to : 
release lock for dio, 2 

rollbacK.cn Is removing cn"s for 
tne value of "s" was set to : 
release lock for a.o. 3 

roilbacK.cn is removing ch"s for 
tne value of "s" was set to : 
release lock for d.o, 4 

creating a temp version ror: 

1 2 2 2 4 

conflict is detected at 4 



const prec rel at d.o, 
conflict history constructed at 
creating a terrp version for: 

12 112 

no conflict is detected at 2 

tne value of "s" was set to : 
mar k-temp.ver marking : 

12 112 
mark-temp.ver marking : 

1 2 2 2 4 

release lock for d.o, 4 

detect non sr detected non sr 
cycle is : 

12 2 1 13 13 

13 11 12 2 2 

restore. sr is restoring sr 
entering determine.r olloack 
rolling back atomic action : 

12 2 2 

rollback.cn is removing cn"s for 
rolling back temp version : 

12 2 2 

rolling bac< atomic action : 

13 11 

rollbacK.cn Is removing cn M s for 
roiling cack temp version : 

13 11 

rolling back atomic action : 

13 12 

rolloack.ch Is removing cn"s for 
rolling Dac< temp version : 

13 12 

rolling back atomic action : 

13 13 

rollcack.cn is removing ch"s for 
rolling back temp version : 

13 13 



commit 

0 

comm 1 1 
0 

commit 

0 



1 



rollback 



r ol iback 



rollback 



rollback 
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locKlng data ooj 4 
release lock to r d.o, 2 

locking data obj 3 
entering this a a in the locx aueue 
1 3 11 

checking deadlock for aa : 

13 11 

no conflict is detected at 4 

creating a temp version for: 

12 12 3 

no conflict is detected at 3 

creating a temp version for: 

1 2 2 2 4 

no conflict is detecteo at 4 

marx-ternp-ver marking : 

12 12 3 

mark- tern p-ver marking : 

1 2 2 2 4 

release locx for d.o, 3 

release locx removed from lock queue : 



13 11 

rollcack-cn is removing cn"s for rolloack 
creating a temp version for: 

13 114 

conflict is detected at 4 

const prec rel at d.o. 4 

conflict nistory constructed at 4 

the value of "s" was set to : 1 

transaction 1 2 is t(r) from giooal.sr 

committing transaction ====> i 2 

rollback-ch is removing ch"s for commit 
the value of "s’* was set to : 0 

release lock for d.o. 2 

rollback-ch is removing ch"s for commit 
tne value of "s" was set to : 0 

release lock for d.o, 3 

rolioack-cn Is removing ch M s for commit 
the value of "s" was set to : 0 

release locx for o.o, 1 

rollback-ch is removing ch"s for commit 
tne value of "s" was set to : 0 

release locx for d.o. 4 

mark-temp.ver marking : 

13 114 

release locx for d.o, 4 

locking data obj 3 
creating a temp version for: 

13 12 3 

no conflict is detected at 3 

mark-temp-ver marking : 

13 12 3 



211 



3 



release lock for d.o. 
locking data obj l 
creating a temp version for: 

13 13 1 
no conflict is detecteo at 1 

mark-temp. ver marking : 

13 13 1 

release lock for d.o, l 

transaction 1 3 is tCr) from aioDai.sr 

committing transaction == = = > i 3 

roilback-cn is removing ch"s for commit 
tne value of "s" was set to : o 

release lock for d.o. 4 

rollback-cn is removing ch"s for commit 
tne value of "s" was set to : 0 

release lock tor d.o, 3 

rollback-cn is removing cn''s for commit 
tne value of " s " was set to : 0 

release lock for d'.o. 1 

All transactions are finished ::: 
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